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XBASTG IS A BASIC INTERPRETER DEVELOPED FqR THE BURROUGHS RANGE 
or COMPUTERS BY STAFF AT P&ISLEY COLLEGE OF TECHNOLOGY. ITS PURPOSE 
IS TO PROVIDE FAST RESPONSE TO SIMPLE BASIC PROGRAMS UNDER TIME- 
SHARING. ACTUAL RUNNING OF PROGRAMS IS MUCH SLOWER FOR XBASIC* BUT 
tXPER.IENCE SHOWS THAT MOST CLASS TIME IS SPENT ON INPUT AND COMPILE. 

XBASIC IS AN IMPLEMENTATION OF ST ANOARD 8 AS I C ^ AND DIFFERS 
FROM BURROUGHS BASIC Tn CERTAIN MATTERS OF DETAIL. THE COMMANDS 
ALLOWED IN XBASIC FORM A Sui^SET OF THE COMMANDS AVAILABLE UNDER CANOE. 
FILES ARE EDITABLE UNDER CANDE. TRACE AND UNTRACE STATEMENTS 
CAN RE MAHF AVAILABLE - SEP" LINES 83300-83400 AND 107300-108700. 
XBASIC OUTPUT MAY B^^ DIVERTED FROM WrwoTE TO PRINTER ("SEND"). 
Vlnrp TERMINALS ARE SllpPQRTED FOR EASY CORRECTION OF SqURCE PROGRAM. 
PROfiRAnS ARE MPNlTOREn FOR EX(:E3S L'jOPING. 

TO USE XBASIC FROM THE BATCH TERMINAL* THE FOLLOWING 
CARDS SHOULD BE SUPPLTEOJ 

? EXECUTE OXR/VSIC/UTILITY 
COMMONS? 
DATA rPD 

(INSERT DECK HERE! U3e TERMINAL FORMAT) 

? END 

8 ; 5 ; ; J J t ! : ; : J ! ;:?;:•:; ; • : : • - : : • • ; s : ! t : ! : : ; : : : s : j 5 { : : ; : j • { j • ; s ! j J : ! ! J I 

COMMENT 

THE BLOCK STRUCTURE FOR THE PROGRAM IS AS FOLLOWS; 

1 SOURCEIN; 1 / DDES x 

START '*->--t S EXECUTE i-~RUM-> < OBJECT >-- yeS--->---x 

1 3 COWMANDS 1 X EXIST? / 1 

1 1 1 1 

1 1 CYES) V (NO) 1 

1 /ANY X •--••-,„-««■,«».■ 1 

■1 < SYNTAX >»--""-<----l COMPILE' 1 i 

;1;- .■.._,::, :^>;. ERRORS'?/, 1 . i i 

^ y^mm m m m m / m m m m m m m m m m m m mm A 

3 1 1 

1. V ( K ) 1 

1 ■ 1 " 1 

t 1 

>j <---! execute: 1 ' < ----.---.,/ 



oooooioo 

00000200 
00000300 
00000400 
00000500 
00000600 
00000700 
00000800 
00000900 
00001000 
00001100 
.00001200 
00001300 
00001400 
00001500 
0000160Q 
00001700 
00001800 
00001900 
00002000 
00002100 
00002200 
00002300 
00002400 
00002500 
00002600 
00002700 
00002800 
00002900 
00003000 
00003100 
00003200 
00003300 
00003400 
00003500 
00003600 
00003700 
00003800 
00003900 
00004000 
00004100 
00004200 
00004300 
00004400 
0000450O 
00004600 
0000470© 
00004800 
00004900 
00005000 
00005100 
00005200 
00005300 
00005400 
00005500 
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INlEGFfJ ARRAY 



% (COMMnN) INPUT UNIT=0 VDUM TTY,2 CRD 
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INTFGEH 
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reai 



HOOLEA' 



SSFQCO;2001^ 
STYP, 

SP0B[lf200]* 
SUBC 1!?I63# 
ARRCl!?6^0!2l* 
STRARtl i2f)f0'll f 

lORH I? no: r infix ; loji 

KEYCiUHU 

FNMn, :3,l;2^J 
^p jrc :9q01 J. 

FGRxr 1, : lOM S43, 
C n ^! 5 T [ 1 : 1 1 * 
ANSA[0!9]j' 
1 [ ! 3 ] ,! 



MS, 
ACS. 

cs, 

CHA* 

CP, 

LP, 

cn, 

nu, 

MSTO^ 
MSTR, 
NCON* 

DFLTN*.. 

TIM, 

LL, 

AREaSTZf, 

BEG, 

EM, 

NDEP, _. 

ADDR^ 
rORE:,FORC* 

a,b,c,6,k; 

R,S,TJ 



OBJECT, 


1 


STRING 


% 


HDDR, 


% 


INFILTOG* 


% 


OUTFILTGG, 


% 


FIRSTOFF* 


% 


DAMGER, 


% 


VAR, 


% 


SY, 


% 


EQOK, 


% 



numbe 
ri>?sT 

CURRE 
CuRRE 
POSIT 
JJEE L 
POSIT 

nuTPu 

CURRE 
CURRE 
NUMBE 
SEC >J 
MAX E 
CURRE 
FUR E 
LIST 

ARITH 
CURRE 
HELP 

numbe 

HASH 



% SOURCE STRINGS 

% SEQUENCE NUMBERS 

% STATEMENT TYPeS 

% POINTERS TO QbJECTPROGRAM 

% INFO CN USER FUNCTIONS 

% ARRAYS 

% STRING ARRAYS 

%■ I/D PSEUDOBUFFERS 

% 't »f 

% COMPILE KEYWORDS 

% FILENAMES FOR EXECUTE 

% PSFUDO-OBJECTPRQGRAW 
% INFO ON FOR STATEMENTS 
% SOURCE PROGRAM CONSTANTS 
% FOR DISK SEARCH 

% FILENAMES 

R OF LINES OF PROGRAM 

EXECUTABLE STATEMENT 
NT STATEMENT NUMrER 
NT SOURCE CHARACTER 
ION OF CHA IS SOURCE 
OUk 

ION IN 08 J 

T UNIT (C REMOTE, 1 PRINTER) 
NT TOP OF ARRAYS 
NT TOP OF STRING ARRAYS 
R OF CONSTANTS 
CH 

XECUTION TIME C? MIN USUALLY) 
NT LINE NUMBER IN INPUT PAGE 
XECUTE OUTPUT FIlE IF ANY 
COMMAND INITIAL LINE 
PINAL LINE 

STACK COUNTER 
NT VARIABLE ADDRESS 
COMPILE FOR NESTS 
R OF EXECUTE FILES 



% haSm 



"THERE IS AN OBJECTPROGRAM" 
"EXPRESSION IS A STRING" 
"PRINTER HEADER PRINTED" 
"PROGRAM NEEDS INPUT FILE" 
"PROGRAM NEEDS OUTPUT FILE" 
"HELLO" 

"NEW MATERIAL IN WORKFlLE" 
"EXPRESSION IS A VARIABLE" 
"PROGRAM CONTAINS SYNTAX ERRORS" 
"EXPRESSION MAY CONTAIN a" 



00005600 
00005700 
00005800 
00005900 
00006000 
0000610Q 
00006200 
00006300 
00006400 
00006500 
00006600 
00006700 
00006800 
00006900 
00007000 
00007100 
00007200 
0000 7 300 
00007400 
00007500 
00007600 
00007700 
00007800 
00007900 
00008000 
00008100 
00008200 
00008300 
00008400 
00008500 
00008600 
00008700 
00008800 
00008900 
OOOG9OO0 
00009100 
00009200 
00009300 
00009400 
00009500 
000096O0 
00009700 
00009800 
00009900 
OOOIOOOO 
00010100 
00010200 
00010300 
00010400 
00010500 
00010600 
00010700 
00010800 
00010900 
00011000 
00011100 
00011200 
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POINTER 



aa; 

PINB* 

PI03^ 

PIRE» 

POB* 

APR,eP«,CPP; 



% "SUCCESSIVE EXPNS to PRINT" 



% START QF LINE 

% CURRENT CHARACTER 

% LAST CHARACTER IN 

% FIRST CHARCTER IN 

^ HASH 



IN I0BC*3 
ft 

IQBEln 
OBJC*] 



FORMAT WHT 

STP 

SPC 

WRK" 

REP 

SYER 

vSYR 

WT 

MESS 

INTR 



("ERR- 
(/"ENO 

("MORE 

f A3), 

("SYNT 

("SYNT 

("WAIT 

("EXEC 

("ILLE 



",A6," is NOT A COMMAND IN XBASIC")* 
"..A6), 

THAN 100 GOTOS, IS YOUR PROGRAM ALL RIGHT?")* 



LNGPRG("PROfi 
INVIT ("VDU 



DVO 

RK 

sSNU: 

Fl 

F2 

F3 

F4 

F5 
F6 

F7 

HOI 

H03 



("OUTP 

("EXEC 

"Fnp? 

(X7?f I 
("U5E 
("ERR? 
("OK- 
("FILE 
("YnuR 
(I6,X3 
"ERR 

("WnRK 

("FURT 

(X40#" 

A2f "/ 



AX 
AX 
-") 

UTI 
GAL 
RAM 
ASS 
UT 
UTI 
LON 
«)» 
RFN 
T 
"»I 
"* 

wn 

,"0 
RUN 

FIL 
HER 
XRA 
"/A 



errors: CLEAR screen AND TRANSMT 

ERRORS;")* 

# 

MG"), 

NUMBER")/ ■ 

TOO LONG AT LINE ",I6), 
UMED ' ELSE SAY TTY"), 
IS BEING DIVE'^TED TO PRINTER")* 
riN STOPPED " EXCESS TIME."/ 
", PRn.'-ifUHS USE MAIN SYSTEM")* 



A SPACE")* 



A M E \' 

MIS '■; 

3*" R 
A6*" 

RKFIL 
IM Op 
")* 

E NOW 
OUTP 

src 
? * " / " 



XXXVX TR SAVE XXXXXX COMMAND")* 
ILL DELETE THE WORKFILE")* 

FCnRns"*A6*"D, LAST RECORD ="*!/)* 
- ",a6*a1," by XBASIC"), 
E IS AS AT LAST RUN COMMAND")* 
FILES STATEMENT OUT OF SEQUENCE"/ 

EMPTY")* 
UT WILL BE PRINTED WHEN YOU SIGN OFF")* 
MK XV"*a8*"RUN "*A6'"DaY "* 
*AZ>*/y5a*"USEK MO, "'A3*A/4*/X52'20C"*")//)i' 



• 






F9 ("XRASTC IS RUNNING-")* 

l-"'10 ("UNNAMED WORKFILE HAS"*U*" RECORDS* LAST RECORD ="*I6)f 

Fll (a6*" (WORKFILE) HAS"*U*" RECORDS* LAST RECORD 3"*I6)* 

F12 ("ERR- ILLEGAL PARAMETER")* 

F13 r"ARE FPr^ENT CONTENTS OF FILE "»A6," TO BE DESTROYED?" ) ^ 

SWITCH FOl^MAT NUM : = C U 1 ) * ( U6 ) * ( X 20* U 1 Q ) ; 

SWITCH FORMAT MNP:=("NnT E'-.iOUGH INPUT AT LI NE"* 1 6 *X5 * "TRY AGAIN")* 

("BLANK INPUT AT 1 1 NE"* I 6* X5* "IGNORED" ) * 

FILE TTY V'5('2/10)^FILE IN CRD 2 ( 2* 1 )l F I LE IN VDU 1 9C 1 * 2^0 ) ; 

FILE OUT LIN 1 f 2* 1 4 ) * SW ITCH FILE FN 8=TTY* CRDi SW ITCH TILE FL8btty*LIN; 



MONITOR INT0VR*EXP0VR* INDEX* FLAG* ZERO* 

LABEL SOURCEIN*CnMPlLE*EXFrUTE*STOP*FINSH*ERR* INCST*PER* INER* 
TOnLONG; 

LABEL EXS*l:"QL*Lf^T*CAR»nNX*f'nN* irF*f-EO*Gfrr*GOS*RET*FOX*NEX* 
DEF*REA*RREA, I NP* R AN * RFS* PP T * RPR I * XPR I * I M, ENX* REM* HE I L* 
INTVR*OUOTE*RDUM>-DAT*RnAT*ROIM*PAG*MAT*IOMT*FLAGR*FlL*CGO; 



000U3OO 
00011400 

00011500 
00011600 
00011700 
000U80O 
OOOU900 
00012000 
00012100 

00012200 
00012300 
00012400 
00012500 
00012600 
00012700 
00012800 
00012900 
00013000 
00013100 
00013200 
00013300 
00013400 
00013500 
00013600 
00013700 
00013800 
00013900 
00014000 

00014100 
00014200 
00014300 
00014400 
00014500 
00014600 
00014700 
00014800 
00014900 
00015000 
00015100 
00015200 
00015300 

00015400 
00015500 
00015600 
00015700 

00015800 
00015900 
00016000 
00016100 
00016200 
00016300 
00016400 

00016500 
00016600 
00016700 
00016800 
00016900 
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SWITCH OPMI=LETi'GOT/'Gas*RET' iNP^REAi-PRI^FaXf NEX'MAT* 
DEF»DAT*RAiM»PAtt»RFS*RFM»ENX^ENy* lFF»ONXi 



OEFTNF nN(i)Nn = IF CHA = nNl THFM ^ i 

comments: ;;!:!!?!:;: : J ;GLOpAL PROCEDURES!;: :::::::::::;::::;::•;};; 

""- CHCONV CONVERTS CHA TO LETTER CODE 1-26 '» 

INJTEGER PROCEDURE CHCOMV ( A) ? VALUE A^ INTEGER Al 

BEGIN. CHCONVSsOHF A GTR 16 AND A LSS 26 THEN CHcONV!=a-16 ELSE 

If A GTR 32 AMD A LSS 42 THEN CHCONV : sA-SJ ELSE 

IF A GTR 40 AND A LSS 58 THEN CHC0NV!=A"31 END/ 

COMMENT 

'^CH PICKS NEXT CHARACTER FROM SOURCE STRING 

ANO STHRL IT IN CHA. BLANKS ARE SKIPPED* 

IF LAST CHAR- RETURN "«" AT DELlM. 

CP IS UPDATED. IG8EC*! IS USE!) AS HASH.; 

INTEGER PROCEDURE NCH; 

BEGIN INTEGER A^LABEL RPTJ POINTFR GPRJ 

I0BE,C1.3?=0>'A!=CP; 

rpt:: if a geq deltm then cha:=nch?="%" f! 3F begin 

CPRj=P0INTER(PR0GCCS,2])+a; 

replace pibe by cpr:cpr for i;a5*a+i; 

if t0ren]=48 then go to rpt; cha : =:nch : = i o^je c u ; cp : = a 

END end; 

COMMENT 

NMPP PICKS UP STATEMENT NUMBER ; 

INTEGER PROCEDURE NMBR CN ); VALUE n; INTEGER Hi 
BEGIN LABEL DOnE^RNB »8lK*NST, SKB; 

define RD(rdi)=replace bpr ry apr;apr FOR i; 

IF dfltacpinr,apr) geq rdi then go blk;if ioBErn#; 

CHA:=NMBR:=inREC 1 ] !=o; 

nst; ■?nciv)=4a then go nst;if (cha:siobeci3 ) geq lO then go done; 

RNBJ RD(72) LSS iQ THEN BEGIN CH A : =CHAxlO+ lOBE C 1] ; GO RNB END; 

NMBRSsCHA;CHA?=InBF{l];IF CHa NEQ 48 THEN GO DONE; 

- -SKB: RD(72,5s48 THEN GO SK8; CHA; =1 Obe C U ; GO DONE; 



:BLK:, 
DONE: 
COMMENT 



CHA!=:"%"| 

end; 
fileccntrql 



DEALS WITH SOURCE FILE OPERATIONS 
A = "MAKE'VRENAMe:", 

1 "SAVE", 2 "l0AD"/"C0PY"* 

3 "REMOVE", 4 Save workfilecat "run") 

3 load workfilecat XRASIC ENTRY), 

& Explicit remove (at "bye'seto 
'' Explicit save, e explicit load; 

PROCEDURE filecontrol(a*c,d,l);value a^c,d';integer ajreal c,d;label l; 

% C AND D CARRY LABEL EQUATE FOR EXPLICIT OPERATIONS 
BEGIN INTEGER R*X,y; 
PROCEDURE EILFRRCF);VALUE F; INTEGER Z', 



00017000 

00017100 

00017200 

00017300 

00017600 

00017500 

00017600 

00017700 

00017800 

00017900 

00018000 

00018100 

00018200 

00018300 

00018400 

00018500 

00018600 

00018700 

00018800 

00018900 

00019000 

00019100 

00019200 

00019300 

00019400 

00019500 

00019600 

00019700 

00019800 

00019900 

00020000 

00020100 

00020200 

00020300 

00020400 

00020500 

00020600 

00020700 

00020800 

00020900 

00021000 

00021100 

00021200 

00021300 
00021400 
00021500 
00021600 
00021700 
00021800 
00021900 
00022000 
00022100 
00022200 
00022300 
00022400 
00022500 
00022600 
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SEGIiVJ SWITCH FHRMAT FRR : -- C "ERR* 'S A3 W^a ^ "/*% A 3' A4, "- NOT ON DJSKI')' 
("EPK- ",A3*A/l/."/"*A3^Aaf " - INVALID USER")* 
",A3*Aa^'VVA3f A/4^" 

",A3*A4,"/"» A3.A4^" 

Nin FILE\AMF")f 
("ERH- WnRKFJl F"), 
("ERR- WORKFJLE TS EMPTY"); 



C"ERR- 
("FRR- 
C " E P R - 

f " E R P " 



non-standard")* 
Illegal name")* 
duplicate name")* 



If E>4 then WRiTFfT 
' FOR ■X:" = B*2 DO [lOCX 

If bso then ioi:o]i = 
Go SOURCE IN end; 

LABEL SKIP*HK*SV*Ln* 
SWITCH OPs-MK*SV*LD* 
FILE DSK DISK "XBWKF 
IF DANGER AND CC3!"CR 
WRITECTTY,F?) JGO SOU 
B?s:lF A = THEN fJL S 
FILL DSK HITH C'DJIO 
I0[8]S=" 

SCAM APR J APR FOR 5 U 
REPLACE PniNTFPCIOCR 

wHitF IN alpha; 

IF |OCBl=" " T 
IF Aal AND lOCol M£Q 
10[?]J=0;IF A GTR ] 
SCan CPRJCPR:=APR FC 
BEGIN I0C?3!=" 
REpiACC POlNTFPCinC? 

IF inr?3=o THEN inr? 

I0C81="XPWKfL " 
FILL nSK WIT 
SKIP: IF NOT 
Y NE« OR CHA NE 

SEarCHCOSk^ANSAC *1 ); 

IF 4 = AND AN5a[0:1 K 
A=l AND inCU NEQ 
A>1 AND A NEQ ^ T 
ANSAC31 NEO 10 OP 
CHA = "M/^KEOO" THEN 

npc A + n; 

sv: IF inro] 

MS=0 THEN FILERRC 
FlLERRCl );DSK. AREAS! 
FOR CSS=1 STEP 1 UNT 
f'EPLACE POINTFRCIDBF 
REPLACE POINTFRCIOBE 
wRITE(DSK, lO.IOPEr*] 
LD5 FOR MSS= 

REadcdsk* io.ineE[*3) 

WRITE(PR0GI:m5»*3*9* I 
FF: ms':sms-i. 

WRITE(TTY*F3*MS* c* ss 

nNc'LQAQon") inco]j = 

RMJ IF InCR] 
I0C01:=0 ELSE FiLERR 



TY^ERR[En ELSE WR ITf: ( TT Y, ERR C E 1 * 

l.t^i: j.8]*inrX3 ,[23;24]3).? 

0;iF A=l AND E=3 THEN WRITE C TTY *FU * 



eqn above skip 
dangerssFalse; 



RH,rF>SW*LWpEW; 

RM*3w*lw*rm*sv*ld; 

L "(2*10*300, SAVE 7);% Ne LABEL 

EATE" or A=g OR As6) THEN BEGIN 

RCEiN end; 

El ; IF A>3 THEN BEGIN 

[ni=c;ioc2i:=D;GO skip end* 

% FILENAME 
NTIL NEQ " ";IF DELTA(PINB*APR)<12 THEN 
]U1 BY APRJAPR FOR IF A<2 THEN 6 ELSE 7 



ir 



IF 



IF 

IF. 
IF 
IF 

GO 

IF 



HEN 

T 
THfN 

R 10 

tf . 

]) + ! 

] ;=T 
R lO 
H TO 
FIRS 
C "7. 
IF ( 

f- A m 

lot 

H^^. 

anS 

PEG 



BEGIN % On Save save wkfile if NO name 

HEN IQ[U» = IOCO] ELSE FlLERR(5) ENO; 
BEGIN % PROCESS "/USERCODF" IF PRESENT 
WHILE NEQ "/"/IF DELTA(PIN8,CPR) LSS 15 THEN 



FUR 7 WHILE IN AlPHA END END* 
THEN FILERRO); 



Py APR:CHR+1 
IMf.f-1); 

[b].c41!363 lss "aooooo" 

cb]*iqc23;dsk,savej=7; 

toff then begin x ! =ch a; y ; =nmbr ( 72 ) * 

" THEN GO PER*CHa;=X ENU* 

A== OR Asft) AND ANSA[0]=-1 THEN GO L* 

1 THEM FlLEHRCa); 

03 AND ANSACO] NEQ -1 THEN FILERR(4); 

BEGIN IF ANSa[03 LEQ THEN Fl lERR( ANSAC03+1 ) ; 

A[/43 NEC 300 THEN FIlERR(2) END* 

IN MS;=0;01JJECI I--FALSF END; 



; NAME workfile 

ANSa[03 NeQ 7 THEN 



IN CANOE FORMAT 



=0 THEN in[o3:=iorBi; ; 

7i;lF ANSA CO] NEQ -1 AND 

=20;DSK.AREASIZE:=iO; 

IL MS DO BEGIN % SAVE IT 

[103) BY ssraccs] fjr e digits; 

1*1) BY POIi\TERCPROG[CS*23 ) F QR 9 WORDS* 

) END;LnCKCDSK);nANGER:=FALSF;GO MK* 

1 STEP 1 UNTIL 200 DO BEGIN % LOAD FROM 

CEF3;REA0(I0BEC*3*SNuM,SSEQCMS3)* % CANDE FORMAT 

DBEC*3 );pR0GrMs*3 i]!=sseq[:mS3 end; 

; OBJECT :=FALSE; LOCK (DSK); 

EQfMSl ); 

IF I0[2]=TIMF C-l) THEN 1 [ 1 3 ELSE o;GO MK; 

=T0[03 AND A=3 THEN BEGIN IF MS=0 THEN 

(6) END;IF ANSAC03 NEQ 7 THEN FlLERR(l); 



00022700 
00022800 
00022900 
00023000 
00023100 
00023200 
00023300 
O0023A00 

00023500 
00023600 

00023700 
00023800 
00023900 
00024000 
00024100 
00024200 
00024300 
00024400 
00024500 
00024600 
00024700 
00024800 
00024900 
00025000 
00025100 
0C025200 
00025300 
00025400 
00025500 
00025600 
00025700 
00025800 
00025900 
00026000 
00026100 
00026200 
00026300 
00026400 
00026500 
00026600 
00026700 
00026800 
00026900 
00027000 
00027100 
00027200 
00027300 
00027400 
00027500 
00027600 
00027700 
00027800 
00027900 
00028000 
00028100 
00028200 
00028300 
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WRI-TEX-O- 

sw 

IF MSbO 

WRIJEID 

WRITECD 
LW 

8EGI.NJ R 
EW 
M 
WRITECT 
IF A-5 
IF CHA= 
GO L EN 
COMMENT 



SKj 



THEN 
SK* .10 

: 

EADCD 



k: 
TY^F-^ 

THEN 
"COPY 

o; 



DJlCLQ-SE-CD-S-K* PURGE); GO Hk; 
DSK.AREAS!B20;nSK,APEASlZEJ=lU 
riLERR(7)j 

id.c.ojv^for csssl step 1. until ms do 

.. progccs,*3);lockcdsk);danger:=false;go mk; 

REA0(DSK,*,I0C03);FaR MS|=l STEP 1 UNTIL 200 DQ 
SK.lO^PROGCMSf *])CEW];SSEQi:MS]!=PROGCNS*in ENO; 
LncKCnSK)fMS!=MS-i;CJBJ£.GTJ=FALSE;GO MKj 
IF A<4 AND CHA NEQ "COPYOO" THEN 

WRlTEtTTY.#F5); 

00" THEN 'a!RI TEC TTY>STP» "COPY '» ) f 



PRncEDU 
BEGIN I 

pEaoctt 

REPLACE 
WRITECI 
IF IU=0 
apr:=po 

REPLACE 
REPLACE 
OBjrUJ 
IF lu G 
WRITECT 
COMMENT 



Rt SYN 
F SY T 
YCSTOP 

apr: = 
OBEC*] 

THEN 
INTER( 

A ° R : A 

pnR P 

=O^REP 
TR T 
TY, 10, 



tnBEC*])+72; 

PR BY 'V FOR 1 ENO ElSE APR:=APR+3; 

Y A FQf^ «;REPi_ACf-: APR BY P(1B + 1 FflR 7 > 

LACE PCR + 7 By'pOINTERCIG8E[*'J) + 79 FQR IJ 

HEN WRlTECTTY,9,iaBEC*3) ELSE IF 0BJ[13=48 THEN 

lOREC*!) ELSE WRI TE C TT"^ [ NO ] , 10* lOBE T * ] ) ; GO TO ERR END^ 

NWC MOniFlrs N'Ch FOP COMPILE ; 



INTEGER PROCEDURE NWCJ 

BEGIN 0N("%") SYNTC'MISG OP" ) ; NWC : =NCH END; 



COMMENT 



PUT 



STORES CHARACTER IN OBJ 



PROCEDURE PUTCA3;VALUF AMNTEGER A; 

BEGIN IF A>63 THEN SYNTC'STR >63"); 

IOBr!:i];=A;REPLACE pOB + CO by PIBE FOR i;C0!=C0+U 

IF en GEO fiOOn THFN G^ TO TOOLnNG^ir CO MOO 8 = THEN CD'-sCO+l ENO^ 

COMMENT 

--- REO . ^UVES PACK ONE SPACE IN Q^Ji 

DEFINE REDsCOSslF CG.C2t33=l THEN CO-2 ELSE C0-1#; 

COMMENT 



LOOK 



LOOKS AT A STRING IN SOURCE PRGg 



INTEGER PROCEDURE LOOK ( A D ; VALUE a;IINTEGER a; 
BEGIN INTEGFR B^ C*D» E^ E ! sC ! sCHA; 8 : =Cp; 

FOR 0?=1 S7FP 1 UNTIL A"! 00 IF CHA NEQ "%" THEN C s -Cx64+NWC; 

LOOK}=c;LP:=CP;CPJsB;CHA:aE END^ 

COMMENT 

--- NUMB PICKS UP DIM AND MAT SIZES ; 

INTEGER PROCEDURE NUMB; 



0002B400 
00028500 
00028600 

00028700 
00028800 
00028900 
00029000 
00029100 
00029200 
00029300 
00029400 
00029500 
00029600 
00029700 
00029800 
00029900 
00030000 
00030100 
00030200 
00030300 
00030400 
00030500 
00030600 
00030700 
00030800 
00030900 
00031000 
00031100 
00031200 
00031300 
0003J400 

00031500 
00031600 
00031700 
00031800 
00031900 
00032000 
00032100 
00032200 
00032300 
00032400 
00032500 
00032600 
00032700 
00032800 
00032900 
00033000 
0003310O 

00033200 
00033300 
00033400 
00033500 
00033600 

00033700 
00033800 

00033900 
00034000 



• 
• 
• 
• 



m 
m 

m 
m 
m 



# 



• 



00034600 
i TO REVERSE POLISH i 

# PROCEDURE ARITMCTT);VALUE TT;tmTFGER TT? 00034900 
PEGIN INTEGER T t A » 8 ^ C» J* K# flP* STCK ; BOOLE. AN INMOK* VOK* STROK; 00035000 
LAerL Sf SS*RPT,EXPnN',nnWE*F.INEV^E0RMl*F0RM2,F0RM3*FlN»RP; 000 35100 

W IMTFGFR ARRAY OPKliiiPOli 000352O0 

00035300 
: COMMENT AN FVPRESSinw CONSISTS OF A NUMBER OF PRIMARIES 00035400 

• SEPARATED BY OPERATORS, PQSSIblY PRECEDED BY INITIAL ^ . 00035500 
- PRIMARIES! OPERATORS! 00035600 

^ NUMBER + 00035700 

:• VARIABLE - 00035800 



STRTN!==FA"i:sYyNDEp!sNnEp + i;iF NDEP=10 THEN SYNT("SIM^ 00037500 

• STCK!=OP:=O;iNMDK:-VQKJ=TRUE;STRnK:-TT=0i 00037600 

„n.;.^..^ 000 37700 

COMMENT PRIMARIES! } 00037800 

00037900 

00038000 



# 



SS! CHA!=NWC; 



COMMENT BRACKETED EXPRESSION; 00038100 

W S! fJNC?'9) 13EfilN ARlTH(l);ir CHA NEQ 45 THEN SYNT("NO ) ,A»')/ 00038200 

red; GO TP f-nPM, EMO; 00038300 

COMMENT 1 NUMBER ; 00038400 

• IF CHA LSS 10 OR CHA = 26 THEN BEGIN R!=I!=0; 00038500 

^PT! 0NC26) BEGIN I ! = 1 ; CHA ! =NWC END; 00038600 

IF CHA GFQ 10 THEN GO TO EXPQn;IF I>n THEN BEGIN R ! =!R + cHAxl0*( -I ); 00038700 

H I ' = 1 + 1 ENn ELSE R{=Rxio + CHA;CHA:=Ni^C; GO TO RPT/ 00038800 

EXPDm: IF CHA NEQ 21 THEN Gq TO DONE; I ! =1 > CHA ! =NWC; J ! aO; 00038900 

0N(4/n BEGIN l!s-i;CHA!=NWC EnD ELSE 0NC16) CHA ! =NWC; J ! =CHA; 00O39000 

IF CHA GEQ JO THEN SYNTC'NO EXPN" ) ; CH A ! =NWC ; 00039100 

If^ .CHA LSS 10 THEN BEGIN J ! = Jxl + CH A; CHA t =NWC END; R : =Rxl 0*( I x J ) ; 00039200 

nOME: PlJT( 1 );MCON:=NCGN + i;CnNSTCNCaN] J=R; 00039300 

• PUTf MCON.r 11 Si'i] );PlJT(^:cnN.^':^:6n;GG FaRM2 end; 00039400 
- ^p^^^FNT 8 INITIAL - ; 00039500 

0N(44) BEGIN IF NHT IMMGK THEN SYNT ("MISPL -")^PUT(fi); 00039600 

• GO TO FORMS end; 00039700 



i 



BEGIN LABEL Rt=; INTEGER A; 00034100 

^ ' A»=0; 00034200 

# ^ RP' If" NWC LSS 10 THEN BEGIN A ! =Ax IQ + CHA; GO TO RP END; 00034300 m 

IF AaO THEN SYnTC'IL StMT"); 00034400 • 

nUmb!=a,end; :^ 00034500 

# COMMENT 
_ ; --- ARlTHfJ) CONVERTS ExPNS TO REVERSE POLISH ; 00034700 

00034800 



i 

i 

i 



ARRAY WITH SUBSCRIPTCS) * 00035900 

; FUNCTION WITH PARAMETERCS) / 00036000 

l^ STRINO ** 00036100 m 

1^ -STRING VARIABLE s 00036200 

^ STRING ARRAY WITH SUSSCRIPT 00036300 

• EXPRESSION IN BRACKETS 00036400 m 
00036500 

EXPRESSION HAS TYPE REAL UNLESS STRING PRIMARY 00036600 

• OCCURS! . IF SO IT HAS TYPE STRING. A VARIABLE PRIMARY IS 00036700 m 

A PRIMARY OTHER THAN NUMBER' FUNCTION, OR STRING. 00036800 

IN QRJ AN EXPRESSION HAS FORM 00036900 

• A UPS A UPS ... A DPS 00037000 m 

WHERE A IS A CHARACTER BEtWEE^ 1 AND 16 GIVING tHE PRIMARY 00037100 ^ 
OR OPERATGR TYPE. OPS IS 0-2 CHARACTERS GIVING MORE INFORMAT ION00037200 

• DEPENDING ON A. ; 00037300 



• 
• 



e 



m 



m 

m 



COMMENT 

DN(63) BEG 
SCAM CPRtA 

STRiNSsTRlJ 
CP!=CP+A+1 
jr CHCdNVC 

B!=cha;a:= 

AJbLOOKO) 
IF A NEQ " 
BEGIN LAB F 

COMMENT 
INTFGFR Bf 
8S=;LQ0KC3) 
FOR A:a21 
GO TO fnq; 

PUTC5))PUT 
IF CHA MEQ 
COMMENT 

FNQ! 
B«=CHCONV( 

IF NWC __NEQ 

RDUm: 

IF GHA NEQ 
CHA!sNWC;P 
BScCHCQNVC 
COMMENT 
nN(?9 3 BEG 

APiTHCi );p 
ARiTHc 1, );p 

PUTf 3)>PUT 
ELSE QNC"S 
COMMENT 
CHA!=NWC;n 

REo; 

IF CHA NEO 
PUT(14);PU 
ELSE BE<5IN 
COMMENT 

CHAtsNCH F 
STROK!=FAL 

:_. FORM 

FORM 
COMMENT 

n 
FnR^'' 

STCKj=STCK 
RPT: 
0N(^3) BEG 
END ELSE 
IF MOT VAR 
IF NOT VOK 
TEST 
THEN SYNTC 
JJaOPKtOPl 
OPtaOP-UG 



16 STRING ; 00039800 

IN IF NOT STROK THEN SYNTC'ILL STR" ) / PUT C 16 ) ; 00039900 
PR:=P0INTERCPR0GCCS,2])+CP WHILE NE3 63; A ! =DELTAC APR, CPR ) ) 000^0000 

E;IF A>1« THEN 5YNT("L0NGSTR");PUT(A);PUTCCP)J 00040100 

,;CHAS=NWC;VAR:=:FALSE;Gn TO F0RM3 ENOJ 00040200 

CHA3sO then SYNTC'ILL NUM"); 00040300 

L00K(2) MOD 64; IF CHCONVCA) NEQ THEN BEGIN 00040400 

MOD 4096;CHa:=R? OOO4O5OO 

ST" AND A NEQ "TH" AND A NEQ"TO" AND A NEQ "GO" THEN 000-40600 

L EnL*FNQ^RnijM; 00040700 

5 STANDARD FNSJ 00040800 

ASf AP> 00040900 

;cP:=LP; 00041000 

STEP 1 UNTIL 32 00 IF S^KEYTA] THEN GO TO EOL' 00041100 

00041200 

IF NWC NEQ 29 THEN SYNT("N0 P ARM" ) ; AR I TH ( 1 ) / REDi 00041300 

CA-^); 00041400 

45 THEN SYNTC'NIJ ) A")KjO TO FORMW 00041500 

4 USER ENS J 00041600 

K;=R nju 64J IF K NEQ "FN" THEN SYNT("UNRC FN"); 00041700 

P MOD 64)JIF SUBCBlrO THEN SYNT("UNDC FN"); 00041600 

?9 THEN SYNTC"Nn PaRM");A:=o; 00041900 

A:=A+i;ARlTHCnJHEDIDNC58) GO TO RDUH; 00042000 

a5 OR A NEQ SUBCm THEN SYNT C "PAR AMTR" ) ; 00042100 

uT(4);puTf b);go to forms end end; 00042200 

B);iF B=0 THEN SYNTC"TNV V AR" ) ; CHA J sN^C ; 00042300 

3 ARRAY ; 00042400 

I^' IF ARRCPm3 = C THrrj SYfs.T("lNDC AR"); 00042500 

E:n;nN(5fi) PFgIN if ARRCB»23 = then 5YNTC"SUBSCPT"); 00042600 

ED ENin;TE CHa NE'^ 45 THEN SYNT ( "SUBSCPT" ); STROK ! =FALSE; 00042700 

fR5;CHA!=\WC ENn 00042800 

") REGIN if NOT STROK THEN SYNTC"ILL STR"); 00042900 

15 STRING array; 00043000 
NC29)BEGTN if STRARCB/U^Q THEN SYNT ( "UNDSTAR" ); ARITHC 1 ) ; 00043100 

00043200 

45 THEN SYNTC"N0 ) ^ S" ) I PUT ( 1 5 ) / CH A ! =NWC END ELSE 00043300 

TCB);STRINJ=TRUE;VAR!=VOKiGO TO FORMS END 00043400 

PUT(2);pUT(P);iF CHA LSS 10 THEN BEGIN PUT C C « ^CHA-H ) ; 00043500 

14 STRING VBLE 00043600 

2 VARIABLE ; 00043700 

NO ELSE PUTCc'=0);IF. STCK=0 THEN ADOR « s 1 1 xC B»l )*C ; 00043800 

SE FnD;vAR !=V0K/G0 TO FORMB? 00043900 

1! CHa:-NHG; 00044000 

2: STR0KS=VAPS=FALSE;IF STRIN THEN SYNT("ILL STR"); 00044100 

7-13 OPERATORS! 00044200 

ANGER' REVERSE POLISH SECTION ; 00044300 

3! BFGU LABEL RPT » TEsT ► RLP , XOP; 00044400 

H-i; INMnK:=FALSE; 00044500 

lJ=n;nKfl6) j!=3 else 0NC44) i;=4 ELSE 00044600 

IM IF NWC=43 THEN I:=7 ELSE BEGIN CP J =CP- I ; I : =5 END; 00044700 

NC49) I?=6 ELSE IF CHA=61 AND E90K THEN BEGIN INM0K;=TRUE/ 00044800 

THEN SYNT("ILL ASN");i:=l END;vOK!=I LEQ i; 00044900 

THEN BEGIN STROK : =FALSE; IF STRIN THEN SYNT("ILL STR") END; 00045000 

: IF OPsO THEN GO TO BOP; IF OP LSS 00045100 

" ARITH"); 00045200 

;iF ixj NFS 1 AND (I + D DIV 2 LEQ CJ+D DIV 2 THEN BEGIN 00045300 

TO XOP end; 00045400 



m 
m 

m 
m 
m 
m 
m 
m 
# 



m 

m 
m 
m 



m 



BQP: IF 1 = THEN GO TC F IN/ OP : =0P + 1 ; DPK COP ] : = i ; GO TO SS; 

xop; var!=falsf:;stck: = ;-)TCk-i; 
put(j+6);tf stck leg o then syntc" arith"); 

go t.o_.test end.; 

comment 6 end expn 

FlM: nOEP;=NDeP*1iIE STCK NEQ 1 THEN SYnTC" aRITH"); 

PUT? 0) end; 

COMMENT 

SKIP SKIPS GIVEN STRING IF FOUND ; 

PROCEDURE SKTPfA,p);vALUE A/BIIMTEGEr a^r; 

BEGIN INTEGER C* D* F ? E ! =CP; C 5 =NWC ; 

FOR n!=l STEP X UNTIL A"! DO IF CHa NEQ "%" THEN C:=Cx64+NWCJ 

If C NE'3 « TMEm REniN CP I ^E ; CH A = =0 END ENDI 

COMMENT 

--- CHMAT CHECK USED IN MAT STATEMENT ; 

INTEGER PR0CEOURE CHHATCA3)¥ALUE AMnTEGER a; 

BEGIN A!=CHCDNvCA);iF A=0 THEN SYNT C "I LL ARR")^ 

IE ARRtA,U = THEN SYNTC'UNDC AR")HF ARRCA^2]=0 THEN 

SYNTC' type")^chmat5=a eno; 



COMMENT 



err 



FOR FILE INPUT AND OUTPUT; 



PROCEDURE cfn; 

BEGIN LABEL IffO 

CHAfsNWCITF L00K(4)="F!LE" THEN BEGIN CPsaLP;Ds-ir A=l5 THEN 5 

FOR CS=1 STEP 1 UNTIL HF DO BEGIN CHa ! =NWC ; R : =LOOK C FNM[ 2, C 3 ) / 

IF R=FNM[UC] THEN REGIN IF FNMr3*C]=0 THEN FNM C 3* C ] : sO ELSE IF 

FNMr3#C3 THEN SYNT ( " I N+OUT?" ) J QP 5 =LP; PUT ( A ) HF 0=5 THEN 

INFTLTOGJsTRUFllF A=7 THEN fiUTFl LTOG ! =T RUE/ 

If^ NWC = "J" THEN BEGIN AJ=NUMB;FnR B! = ACS STEP 1 UNTIL MS DO 

IF A*SSEQrE33 THEN BEGIN PUT ( B. C U ? 6 1 3 ; PUT C B . t 5 S 6 1 ) ; GO 0NC58) L 

end;5Ynt("undf go") EMn;puT(0);PurcO);uNC58) go l; 

GO TO M END ELSE BEGIN CP ? =CP-1 i CHa :=0 END ENDJSYNT("UNOC FL") 
PUTCOJONCf") GO TO MKP ! ^CP- 1 ; CHa 3 = J GO TO L^ 

"MS IF A = 5 THEN SYNT ( "NO I NPUI " ) ;PUT C ) ; GO TO INCST; 

Ls end; 



COMMFNT- 



VBASIC STARTS HERE 



firstoff:=iu neQ 2; if iu=2 then tty.type:=i; 

PlBEJ=P0lNTERCT0RE[n) + 7; P I N3 J =P0 I NTEH ( I QB C 1 ] ) / 

0ELTM:=7?;TlM: = t0B0C;iL!=-t.' 
OBJFCT J=HnnR:=FALSE;CU:=0; 

FILL KEYC*] WITH "LET" ,"GnT"* "GGS'S "RET", " INP'S 

"REA'%"PRr%"FOR"*"NEX"#"MAT"»"nEF"i'"DAT"/ 
_.".?,AN","PAG","RES","RE'^"f "STO","END"i'"IF ","0N "# "SIN", "COS", 

"tAN",*'ATN","ExP"<'"LOn","AnS","TNT";'"SQR","FIX"'"SGN"»"RND")' 
"EQ","LT","LE","GT","GF",";JE"; 



COMMENT---"-'"--'"----' 
"-"-----'•--- SOURCEINS 



FOR INPUT QF SOURCE PROGRAM 



s; 


00045500 




00045600 




00045700 




00045800" 




00045900 




00046000 




00046100 




00046200 




00046300 




00046400 




00046500 




00046600 




0004670G 




00046800 




00046900 




00047000 




00047100 




00047200 




00047300 




00047400 




00047500 




00047600 




00047700 




00047800 




00047900 




00048000 




00048100 


ELSE a; 


00048200 




00048300 


D NEQ 


OOOA8400 




00048500 




00048600 




00048700 


ELSE M 


00048800 




00048900 


ENDi 


00049000 




00049100 




00049200 




00049300 




00049400 




00049500 




00049600 




00049700 




00049800 




00049900 




00050000 




00050100 




00050200 




00050300 




00050400 




00050500 




00050600 




00050700 




00050800 




00050900 




00051000 




00051100 



i 

i 

i 






^1' 

m 



% 



AND- EXECUTIOm of COMMANDS 



• 
• 

• 
• 

• 



COMMENT! 



COMMANDS ALLONFU IN XBASIC 



PYE 

RUN 
SCR 

delptf: 

L I St 
LIST £ 



SAME 

TERMI 

EXECIJ 

nEUET 

SAME 

LISTS 

WHERE 

N 

SEPAR 

INITT 

SAVES 

SAVES 

■..■■IE. 

LOAD. NN.WN.NN . . 

LHAD NNNNNN/IJUUUUU 



HAKE NNNNNN 

SAVE 

SAVE NNNMNN 



AS RY 
NATES 

TES P 
ES WU 
AS SO 

ENTI 
E IS 

A TED 

ALISE 
WORK 
WORK 

NOT A 

,. .,L 
U C 



w 



CPPY 

CQPY 



NNNNN(\i 
NNNNNM 



REMOVE 

RENAME 

PLOP 

HHATS 

TTY 

vnii 

SEND 

NOSEND 
TIME N 



NNNN 
N N N N 



/UUUUUU 

NN 

NN , 

RESET 
nBTAI 
IMPUT 
INPUT 
DIVER 
TERMI 
RESET 



U o 
R 
R 

S HDk 

N5 wn 

UNIT 
UNIT 

TS nu 

NATES 
S MAX 



E 
X8AS! 

R03RAM 
RKFILE 
R 

RE ^'^OR 
A NUM 

BY CHM 

S AND 
FILE I 
FILE I 
LREADY 
A D 3 W 
OPIES 
ORKFIL 
OPIES 
AME FO 
E MOVES 

enames 

KFILE 
RKFILE 
IS TT 

IS vn 

TPUT T 

DIVER 

EXECU 



C. PRINTER OUTPUT IS SCHEDULED 
IF FREE OF SYNTAX ERRORS 



KF 
BE 

MA 
NA 
F 
N 

M 
OH 
WO 
E 

NN 
R 

F 

H 
TO 

S 
Y 
U 


SI 
TI 



ILE 

R OF ELEMENTS OF FORM 

(H,H STATEMENT NUMBERS) 
S, LISTS PART OF PROGRAM 
MES WORKFILE 
NAMED 

NNNNNN. NAMES WORKFILE 
AMEO 

KFILE AND NAMES IT 
RKFILE FROM NNnNNN/UUUUUUU 
BECOMES UNNAMED 
NNNN INTO WORKFILE 
NNNNNN/UUUUUUU 
ILE NNNNNN/U5ER NO, 
OHKFILE 

LAST RUN STATUS 
TATUS 



PRINTER 

ON OF OUTPUT 

ON TIME TO H MINUTES 



SOURCEIN: begin LABEL SQURCElN^ EF, COPY* NEWL^ SOURCE* RM08* 



FS.T;. 
iNfnvR 

IF FIR 

F 

IF LL = 

LLi=LL 
S 
ELSE R 
IF iu = 
PiNB ! = 

A ! = N M B 

commfn 

I0bE[1 
JEPLAC 

ONCRU 



! = IME 
STOFF 
STI 
-1 TH 
SOUPC 

+ 1 ; T F 

OURCE 
EADCV 
2 THE 
POINT 

NCK'l: 
R C 6 ) ; 
T N 

3*.=o; 

E,_.BPR. 
NOOO" 



r; 

THF 
IF 

FfJ G 
fim; 



D U C S 
^' w R 

ERf T 

r: 

.T F . A 
ONVO 
REPL 
-4 B 

) BE 



N RF 

IU = 

TO 

L5S 

LL: 
TOP] 
ITFC 

opr * 

= IF 
= 1 

in I 

ACE 
Y AP 

GIN 



GIN 

n T 
so 

IF 
2 4 
-Oi 

TTY 
1 ).! 

N-S> 
HFN' 
NPU 
BPP 
R?A 
IF 



ELSE IF lU*? THEN GO C 

FIL 



FIL 
HEN 
liRCE 
lU G 
THEN 
IF I 
0*10 
*10* 
TOBE 
TH 

REG 
T WI 
-5 8 
PR F 
OBJE 

OMPI 

ECON 



FGON 
!•' R I T 

f 

I R 

GO 
(I GT 
81. *] 
I0B[ 

[13: 
EN S 
TN T 
TH 7 
Y AP 
OR 5 
CT T 
CHA 
Lt 

ELSE 
TROL 



TROL(b»"XRWKFL "* T IMEC "1) * EST ) J 
E C TTY* I NV IT); FIRST OFF :=FaLSE END; 

THEN Gfi TO S0URCE;PTNBS=PIN8 + 80; 
TO NLV'U. ; 

R Q THEN READ(FNLlU-l]r.ST0P]*10*I0Br*3) 
)* 

*3 ); 

SEQ[;'iSl 
F C H A = " 
ERO STA 
R5CPR»= 

WHILE 
HEN BEG 
NEQ "%•• 



BEGIN 
(4*"X8W 



ELSE 0; APR!=PINB;BPR!=PIBE* 
%" THEN GO TO SOURCEIN* 
TEMENT NO. MUST BE COMMAND* 
APR"1 FOR U 

IN alpha;cha; = iobei:i3; 

TN IF NMBRC72) NEC OR 
THEN GO PER;gO EXECUTE END 

WRITECTTY*WT)* 

KFL '%TIMEC-n*CQMPILE) END END^ 



00051200 
00051300 
00051400 

00051500 
00051600 
00051700 
00051800 
00051900 
00052000 
00052100 
00052200 
00052300 
00052400 
00052500 
00052600 
00052700 
00052800 
00052900 
00053000 
00053100 
00053200 
00053300 
00053400 
00053500 
00053600 
00053700 
00053800 
00053900 
00054000 
00054100 
00054200 
00054300 
00054400 
00054500 
00054600 
00054700 
00054800 
00054900 
00055000 
00055100 
00055200 
00055300 
00055400 
00055500 
00055600 
00055700 
00055800 
00055900 
00056000 
00056100 
00056200 
00056300 
00056400 
00056500 
00056600 
00056700 
00056800 



• 






m 
m 
m 
m 



# 






• 



ONcnELCTT" OR CHA = "SCROOO" ) f^EGlN CJ=NH6RC72); 

IF c NEC OR CHA NEO "%" THEN GO PER ^ WR I TE C TTY» F7 ) J 

CS!=MS: = lOC03SsO,;nAt\iGEH!sUBJECT:=FALSE;GO SOURCE IN END; 
ON(«|,ISTOO") BEGIN 

COMMENT PROCESS LIST COMMAND; 



lABEL 
IF nu 

WRITE 



ENssO 
IF CH 
FOR A 
AND S 
REPLA 
WRITE 
SCAN 
REPLA 

end;o 

ON("R 
ON("M 

n N ( " s 

ONC'L 
N ( •♦ P 
ON("C 
ON('»R 

ON('»S 
WRITE 
TIMEC 
HDqr: 
N ( « N 

n N ( " T 

DN("V 

n N ( '♦ T 

GO TO 

ON("P 

ON("W 

W 

W 

G 



NEX 
al T 
(FLC 

nEx 

N ( " % 
CONV 
J = l 
SEQC 
CE P 

(loe 

GPRS 
CE C 

N(5a 

ENAM 
AKEC 
AVEO 



*LFx; 

HEM W 

♦ 

". AND 

C CHA) 
STEP 
A] GE 
OIMTE 
El*U 
POINT 
PF RV 
) GO 
r") F 
0") F 

0") r 



RlTE(TTY,DVO); 

PC); 

BEGJ=h;MBRC72);lF CHCQMVCCHA) NEQ THEN GO PER; 

BEGsO) 1000000 ELSE 0N(4A) NMBRC72) ELSE BEG; 

NEG d TtlEN GO PER; 
1 UNTIL MS DO IF SSEQEA] LEQ EN 
Q BEG THEN BEGIN 
RCIOBECI ]) BY " " FOR U?; 
NUM[?xOn3>SSEflr A] ); 
ERCI0BFC11)+20X0U FOR 20 WHILE NEQ 48/ 

P0lNTER(PRDnCA.2]) FOR 73; WRITE ( F"L C OU ] i- 1 4, I OBEC * 1 ) 
TO NEX;WRlTEfTTY*STPi."LlST ");GU TO SOURCEIN END; 
ILECONTROLCO^" NANED"^' "»S0URCEIN); 
lLECONTROLCO,"rREATE"/"D'VSCURCElN); 
iLECONTROLd," SAVFD'N" 'SSOURCEIN); 



OADOO" 

EMOVE" 
DPYOO" 
YEOOO" 
FILEC 
ENDOO" 
f L I N » H 

-1)«C4 
= TRUE 
GSFND" 
TYOOO" 
OUOOO" 
TMEOO" 
SOURC 
LOPOO" 
HATSO" 
RITECT 
R I T E C T 
n SOUR 



) Fl 

) FI 

) FI 

OR 

n ^| T p 

) RE 
D-'^^T 
1518 

end; 

5 E^E 

) Rr 

) PE 
) *^F 
EIN 
) FI 
) Rr 

TY,F 
TYi.F 
CETm 



LECO^ 
LECON 
LECON 
CHA = " 
0lC6, 
G I U P 
IMFC^J 
I^TIM 
WRITE 
GIN 
GIN I 
GIN I 
GIM T 

end; 

LECOM 
GIM W 
1 * M 5 
n,TG 

end; 



TROLC'^^" LOAOE"*"D". SOURCE IN); 
TRGL(3,"RE^;0VE"'"D"* SOURCEIN); 
TR0LC2." COP I E'SO, SOURCE IN); 
HELLOO") BEGIN IF IU=2 THEN gO FINSH; 

"Xrwkfl ",TI^'U:(.-^ )fFiNSH) end; 

U!=i;lF NOT HDDR THEN BEGIN 
)/TIN^Ef'^K[2-^:l2],llMFCb).C35Jl23,TlMEC5).[n!l2]* 

E(-n.r.23:243); 

(TTY,HDl);Gn SOURCEIN END; 

!.!:=0;WRlTE(TTYf 3TP»"NOSEND");gO TO SOURCEIN ENO; 
U:=i ;WRlTrCTTY*STP^"SFTTTY");GO TO SOURCE END; 
L':=0;wRlTFCTTY»STP*"SETVOU");Ga TO SOURCEIN END; 
Ii^'': = 36nOxNM!i^>RC10);WRITt (TTY'STP^"SeTTIM"); 



WRITECTTY,WHT^" 



TR0LC5*0^O>SnURCEIN); 

ritectty,f9); if i0l0]=0 then 

*sseq[ms]) else 

cni.cAi !3ft],MS^ssEQrMsi ); 

% ILLEGAL COMMAND 
"SCHAC35:35:6xDELTA(CPR#APH)]);G0 SOURCEIN ENO; 



COMMENT 



PROCESS SOURCE STATEMENT; 



MJ EC n^F A LSEIMM EM-^^^^^^ 

COMMENT DELETE STATEMENT; 

ON ('•?!») BEGIN cHA: = a;FDR A: = 1 STEP 1 UKTIL MS DO 
ON(SSEQCAl) BEGIN MS : =t^S- 1 ; FOR 3:=A STEP 1 UNTIL MS DO 

regin sseo[ri !=ssEraR+i];wpTTECPROGrB.*]i. 10/PRGGr.B + i**] ) END end; 

go to sourcein end; 

cha:=a;apr!=apr-i; 



00056900 
00057000 
00057100 
00057200 
00057300 
00057400 
00057500 

00057600 
00057700 
00057800 
00057900 
00058000 
00058100 
00058200 
00058300 
00058400 
00058500 
00058600 
00058700 
00058800 
00058900 
00059000 
00059100 
00059200 
00059300 
00059400 
00059500 
00059600 
00059700 
00059800 
00059900 
00060000 
00060100 
00060200 
00060300 
00060400 
00060500 
00060600 
00060700 
00060800 
00060900 
00061000 
00061100 
00061200 
00061300 
00061400 
00061500 
00061600 
00061700 
00061800 
00061900 
00062000 
00062100 
00062200 
00062300 
00062400 
00062500 



i 
i 
i 
i 






• 
i 

1 



m 



m 

m 
m 
m 
m 
m 






m 

m 



COMMENT 



ADD NEW LAST statement; 



IF CHA GTfJ C THEN BEGIfJ CS : "MS ; MS : = A j =m5+ U 

IF MS GTP ano tHfm Gn toolong; 
GO TO COPY end; 

COMMENT REPLACE EARLIER STATEMENT; 

FOR A: = 1 step 1 UNTIL MS DO ONCSSEtJUJ) GO TO COPY 

ELSE IF CHA LSS SSEQCA] THEN BEGIN MSJ=MS+i; 



COMMENT 

IF MS G- 

FOR B!s 

eEGiN S 

60 TO C 

COPY! 

.REPLACE 

BS=DELT 

REPLACE 

REPLACE 

I 

T 

:.PE,R 

commf:nt 



Insert statement; 



TR 200 

HS STEP 

SE.QXB.T!. 

OPY END 

PRO 

•BPRlCP 

ACAPR^P 

BPR5BP 

BPR BY 

NERI 

OOLONG! 

! ■ WP 



THEN 
"1 U 

sSSEQ 

G [ A . 1 
PS=PO 
IN8 + 8 
R BY 

tl n 

WRIT 

W 

ITECT 



GO TO tooldng; 

NTIL A+t DO 
CB-li;WRlTEC^ROGtB/*], lO^PROGtB- 



1**]) end; 



n!=ssEQCA3 ssgha; 

INTLRCPR0GCA»2] ) BY " " FOR l; 
0);iF B>'n THEN 3;=7U 
APR FOR (3 WHILE NEQ "X"; 

FQR 72-deltaccpr^8pr);go souRcein End sourcein; 

ECTTYMNTR);Gn TO SOURCE INi 

ritectty,lngprg*sseqi:cs3);go TO sourcein; 
TY^Fi2);Gn sourcein; 



ENn SOuRCEIl 



compile 5 



SEARCH FUR SYmTAX ERRORS 

and Make pseudo-object code 



comment 



SYNTAX ERROR MESSAGES: 



output AFTER "RUN" 
WITH NEW FAULTY PROGRAM 



A P IT H 
FILES 
IL GOSW 
IL PEL^' 
ILL ARP 
ILL ASM 
ILL FN 
ILL FDR 

ILL NEX 
ILL NUM 
ILL STR 

IL STMT 
INV IF 



MISSING tiPF 
FXPPF'SSKl^ 
PROGRAM CAN 
F 1 1 F 

THIS STATFM 
BY A GHSUR 
AN ILLEGAL 
FOUND IN AN 
ARRAY IMA WE 

A LETTER 
AN ASSIGNME 

IS NOT A VA 
THE riAME OF 
FN LFTTE^^. 
A FOR STATE 
FOR THIS VA 
NEXT MUST R 
A PRIMARY I 
A STRING PR 
A REAL EXPR 
ILLEGAL STA 
STRINGS CAN 



KATDR OR OPERAND IN ARITHMETIC 
(SHtJIiLD NOT OCCUR) 
HAVE ONLY ONE INPUT AND ONE OUTPUT 

LNT HAS BEEN ILLEGALLY REFERENCED 
STATEMENT (IT IS IN A FOR LOOP) 
RElAIIUN of form X?? HAS BEEN 

IF STATEMENT 
EXPECTED BUT CHARACTER IS NOT 

NT IS ATTEMPTED BUT LEFT HAND SIDE 

KlARLC 
A DEFINED FUNCTION MUST BE OF FORM 
PARAf^LTLRCS) MUST BE SUPPLIED, 

HEnT IS ALREADY IN OPERATION 

RIABLE 

EFER TO AN UNSUBSCRIPTED REAL VBLE 

S MISSING OR ILLEGAL 

IMaRY has been ENCOUNTERED IN 

ESS I ON 

TEMENT 

Only be compared for equality 



00062600 
00062700 

C0062800 
00062900 
00063000 
00063100 
00063200 
00063300 
00063A00 
00063500 
00063600 
0006 3700 
00063800 
00063900 
00064000 
00064100 
00064200 
00064300 
00064400 
00064500 
00064600 
00064700 
00064800 
00064900 
00065000 
00065100 
00065200 
00065300 
00065400 
00065500 
00065600 
00065700 
00065800 
00065900 
00066000 
00066100 
00066200 
00066300 
00066400 

00066500 
00066600 
00066700 
00066800 
00066900 
00067000 
00067100 
00067200 
00067300 
00067400 
00067500 
00067600 
00067700 
00067800 
00067900 
00068000 
00068100 
00068200 



i 
i 

i 
i 






• 



# 

m 
m 
m 
m 
m 

# 






INV PAf? 
IMV VAP 



iNi + OUT? 
LOMGSTR 

MisG np 

M I 5 P = 
MT5PL - 

MAMF 
fVC ) y 



NO FXPN 

NO FHR 
NnrMi^'UT 
NO ivFXT 
NO P A R M 

NO PPOG 
NO Rn.M 

NO sf:pr 
NO in ■ 

NOT PNO 
NOTLAST" 
nvpRFLW 
QUOTPS 
R£6C' AR 
REOC FM 
SAMFFTl 
PARA M T P 
sSlMPl FY 

S171 



STHRAGF 
5TR >6 3 

STP=STR 
SURSCPT 

TOO ^-^CH 



OR I 
A Ffl 
MUST 
A PP 
STAT 
A ST 
A FT 
A ST 
IN A 
AN 
RF.FN 

y ISP 

A - 

EXPR 

PPOB 

INCH 

MISS 



Nh;:Qi.jAL I 

PMAL i'A 
RE A V 
T M A R Y I 
EMFNT t 
NGLF VA 
LE IS H 
RING CO 
STATEM 
PERAND 

DMITTE 
LACFP 
SIGN HA 
rSSIOM 
ABLY CA 

rrfctly 

TNf, PAR 



E HA 

POLL 
A NF 

INPU 
A FO 
EVER 
8RAC 
THEP 
NO R 
CONS 
STAT 
A FD 
(FOR 

THE 

THE 

A NU 
MISH 
ARRA 
A FU 
A FI 

WRON 
AN F 
MDRF 
AN A 
(IN 

niME 
ARRA 
TYPF 

ILLF 

HAS 
A ST 
AM A 
SU«5 
PRPC 
USED 
CAUS 
EXPR 



S BEEN 
OWS 

XT STAT 
T STATE 
R STAlE 

Y FUNCT 
KETS 

E IS NO 
ELATION 
ECUTIVE 
F M F N T M 
R STATE 
X = l TO 
LAST ST 
END' ST A 
MBER IS 
ATCHEH 

Y TWICE 
NCTIOM 
LE HAS 

G NlJ^'RE 
XPRESSI 
AND SH 
RRAY ni 
MAT ST A 
NSION 

Y ST V R A 
PEAL f 

CAL CifsJ 
>63 CHA 
RING CA 
RRAY RE 
CRIPTS 
F SSI NT, 

OP ALL 
ED BY 
FSSION) 



TY 

NAMFIER 
AHIABLE 
S MISSI 
VERY EX 
K 1 A P L E 
LUG U b 
i-^'TaINS 
£NT OTH 
ESSENTI 
fENO 
R VISSI 
S BEEN 
V L • G f 
USED BY 
NESTED 
EKTHESE 



FOUND IN A 



IN A DEE STATEMENT 



IN A READ 
CONSIST OF 



NG OR ILLEGAL 
PRESSION MUST 
PRIMARY, 

ED FOR INPUT AND OUTPUT 
MORE THAN lU CHARACTERS 
ER THAN PRINT. 
AL TO THIS STATEMENT HAS 
OF STATEMENT ERROR). 
NG = IN DEF STATEMENT 
PLACED ILLEGALLY IN AN 
A*»B ) . 
ILLEGAL FILENAME 
FOR AND NEXT STATEMENTS 
S; x=A IN ARITH EXPRESSION 

P IN FUNCTION PARAMETER 

S IN SUBSCRIPT 

F IN FILE DECLARATION 
NUMBER BUT NO EXPONENT 



EMFNT HAS NO CORRESPONDING FOR 
NiENT MUST HAVE LIST OF VARAIBLES 
WENT EARLIER IN PROGRAM HAS NO NEXT 
ION MUST HAVE PARAMETER(S) IN 



PROG 
HAS 
ARTT 
UST B 
MENIT 

10 E 
ATEME 
TEMEN 

TOO 
SIR IN; 
DIME 
HAS B 
BEEN 
R OF 
Pi\ IS 

oulp 

MENS I 
TGMEN 

F THE 
G E HA 
7 OF 
ECt C 
RS OR 
N ONL 
FEREN 



Ham to Ru 
been fdun 
h express 

E SLPARAT 

MUST HAVE 

TO 

NT MUST B 

T MUST BE 

LARGE 
G QUOTES 
NSIONED 
EEN DEFIN 

declared 

Parameter 

VFSTFO T 
BE BROKEN 
ON IS ORE 
T) IS GRE 

ARRAY 
S BEEN EX 

TYPE ALP 
HAPACTER 

STARTS L 
Y BE CQmP 
CF. HAS TH 



N 

P IN AN IF STATEMENT 
IONS JN PRINT 
ED BY , OR SEMICOLON 
A FINAL VALUE 

E AN END STATEMENT 

THE Last statement 



ED MORE THAN ONCE 
MORE THAN ONCE 
S IN A FUNCTION CALL 
A DEPTH OF IC OR 

UP 
ATER THAN tU OR 
ATER THAN THE DECLARED 

CEEDED C700 WORDS OF 

HA) 

(E,G, PRINT STRING 

ATER THAN COL 63) 

AREQ WITH ANOTHER 

E V-RONG NUMBER OF 



OF THF SOURCE STATEMENT HAS NOT 
THE INFORMATION IN IT, (CAN BE 
MISSION OF AN OPERATOR IN AN 



00068300 
00068400 
0006P500 
00068600 
00066700 
00068800 
00068900 
00069000 
00069100 
00069200 
00069300 
00069400 
00069500 
00069600 
00069700 
00069800 
00069900 
00070000 
00070100 
00070200 
00070300 

00070400 
00070500 
00070600 
00070700 
00070800 
00070900 
00071000 
0007U00 
00071200 
00071300 
00071400 
00071500 
00071600 
00071700 
00071800 
00071900 
00072000 
00072100 
00072200 
00072300 
00072400 
00072500 
00072600 
00072700 
00072800 
00072900 
000 7 3000 
00073100 

00073200 
00073300 
00073400 
00073500 
00073600 
00073700 
00073800 
00073900 



• 

• 



• 
• 



TYPE AN ATTEMPT HAS BEEN MADE TO UST A MAT STATEMENT 00074000 

FOR A l-DIMENSIONAL. ARRAY 00074100 ^ 

# ; UNnC AR AN ARRAY HAS 8Efc':M REFERENCED BUT NOT DECLARED 00074200 W 

llMOC Ft A FILE HAS BEEN REFERENCED BUT NOT DECLARED 00074300 

UNDC FN A FUNCTION OF TYPE FN* HAS BEEN REFERENCED BUT 00074400 

NOT DECLAREU 00074500 • 

UNHF on THERE IS NO STATEMENT IN THE PRqGRAM WITH THE 00074600 

SEQUENCE NUMBER REFERENCED BY THIS STATEMENT 00074700 

# UNDSTAR A STRING ARRAY HAS BEEN REFERENCED BUT NOT 00074800 • 

DECLARED 00074900 

UNRC FN A FUMCTlCiN NAME OR KEYWORD HAS BEEN MISSPELLED 00075000 

H' OR MISPLACED 00075100 • 

3 Flifs NOT MORE THAN TWO FILES MAY BE DECLARED 00075200 

11 PnRS FGH siaTEmEnTS NESTED TOO DEEP 00075300 ' 

H : : { ; j#: ; ! : : : ; : : ! : ; ! J : : ; ; : { : ! ; ; ; : ; : 5 5 5 ! ! I ? ! : ; : ! J ! ! 5 5 : : ! : ! ! 5 s 5 5 s ! ! s : J s J ^ 00075400 • 

00075500 

COMPTLFt 00075600 

0, 00075700 • 

COMMENT IN THE FOLLOWING COMMENTS, 00075800. 

<E> IS ANY EXPRESSION (POSSIBLY WITH «) 00075900 

# <L> IS AN^ LETTER 00076000 • 

<y> IS ANY VARIAHLE PRIMARY 00076100 

<N> IS A^!Y UNSlGKEn INTEGER 00076200 

# <S> IS A STATEMENT NUMBFH 00076300 W 

<F> IS A FiLEi-vAME 00076350 

00076400 

# ALLOWED VARIANTS ARE LISTED BELOW. THREE LETTER 00076500 • 

ABBREvlATinNS OF INITIAL KEYWORDS ARE ALLOWED WHERE UNAMB IGuDUS, 00076600 

SPACES ARE IGNORED EXCEPT InSIDE STRING QUOTESI 00076700 

# ■■ . ■ ■ ■ ■; -00076800, , V; • 

: |Ht0VRr=INTVR; lNOE)(!=QUOTE;FLAG!-FLAGHf 00076900 

MSTns=?87;MSTR!s27nNFlLT0G!=0UTFlLT0G5=FALSEI 00077000 

# FOR A! = l STEP 1 UNTIL ?6 DO STRAR C AM 3 s = ARRC A^ 1 3 5 = ARR C A# 2 3 5 =SUB C A3 ! =0/ 00077100 • 
iDct 3 J = I0C21 J=fMM[2M ] : = FNM[2,?] j=FNM[3m.3 :=FNM[3*23 J = AREASlZE!aO; 00077200 

NDEPJ = c0! = lJPaBJsP0INTERC0sj'C*3); 00077300 

# CS:»OJSYJ=EQaK!=TRUEJ 00077400 • 
IF MS sO THEN SYNT("NQ PROfi"); 00077500 

'^ FORFr=F6R'C!=NCONVsO/FOR^A5 = r STEP 1 UNTIL 2.00 DO STYPtAlJaO; 00077600 

00077700 • 

COMMENT ^ riLES 00077800 

<N> FILES <n>»,, 00077900 

# WHERE <D> TS <F> (EXISTING FILE) 00079000 • 

OR <F>C<N>) CFIlE to be CREATED: N^MAX NO OF RECS) 00078100 

WHERE <F> IS A CANOF FILENAME 00078200 

# THERE CAN ONLY BE ONE FILES STATEMENT. IT MUST BE THE FIRST STATEMENT. 00078300 
THeRF CAN BE AT MOST ONE INPUT FILE AND ONE OUTPUT FILE* 00078400 

00078500 

# FIl: ACS5=cS;=CS+i;CP!=ChA:=0;cHA5=NWC;B:=LOOK(3); 00078600 
IF p = "RFM" THFN GO FIL; IF R = "FIL" IHfn BEGIN CP s =LP; SK IP C 2, "ES" ) I A J =0^ 00078700 

RFIL! A! = A+i;iF A>3 THEN SYi\T("3 FILES"); 00078800 

# CHA:aNWC;iO[A]ss" ";BPR!=POINTERCPROGrcS*23)+CP-i; 00078900 
SCAN APR:8PR FOR 6 WHILE IN ALPHA; FNM [ 2* A 3 : =8 J =DELTA(BPR» APR ) ; 00079000 
REPLACE P0INTERCI0CA3) + 1 BY BPR FOR B; FNM C 1 , A 3 S =LOnK( B )) CP S =LP; 00079100 

H nFs=:A;CHA:sNWC;ON("(") begin AREASlZEt=;NUMB/20+i;FNMC3,A3 ;a7; 00079200 

IF CHA NEO ")" THEN SYnTC'MO ) , F" ) ^ CHA : sNWC END;UNC"*") GO TO RFIL^ 00079300 

IF A=2 ANO IOri3=IOr23 THEN SYNT ( "S AMEFI L" 3 ; IF CHA NEQ "%" THEN 00079400 

# SYnTC'TOO MCH") END ELSE CSS^O; 00079500 



#' 

m 






m 
m 



# 



IF ACS>MS 
COMMENT 



THEN SYNTf'MG PROG"")/ 



DIM 



<N> DIM <H>(<S>).». »• 

<n> dimension <m>(<t>)».,, 
where <m> is <l> or <l>s 

<t> is <n> or <n>*<n> 
dim statements must i'recede all executable statements 
string''array must be one-dimensional. 
all dimemsiqns must be <64, 

713 WOPDS REAL AND 73 STRINGS ARH! AVAILABLE FQR ARRAYS 



D 
B!=LOOK 
IF R=:"D 

RD 
IF NWCs 

SYNTf "N 
IF CHA 
GO TOD 
IF ARRC 
BJsARRt 
0N(",") 
MSTn:=M 
IF CHA 
GO TO D 

cOmment 



IM! 

(.3)} 

IM" 

IM: 

"S" 

( 

NEQ 



IF 
TH 

TH 

/s 

IM END 
KMl N 

K,n; = 

BEGIM 

sto+b; 

NEC 'M 

IM END 



ACS 

R = " 
EN B 

K'.= 
EN B 
")^A 
" TH 
; AR 
EQ 
NUMB 

A! = 
IF M 
" TH 

;iF 



REM" 
EGIK: 
CHCO 
EG IN 

!-ST 
FN S 
R[K.^ 
THE 
MF 
ARRt 
STC 
EN S 
ACS> 



:=ns + i ;cp j=cha! = o;cha;=;nwc^ 

THEN GO dim; 

CP s si P; SK I P C o# "CN5 ION" ) ; 
NVCNHC5HF K = THEN SYNTC'lLL ARR'OJ 
STRARCK,o:}!=MSTRMF NWC NEQ "C" THEN 

RARCK, U!=NUM8;mSTR!sMSTR+A; 

YNTC'NO ) /S")/IF NWC = "#" THEN GO TO RDIMj 

0]5=MST0JIF CHA NEQ "('^ THEN SYNTC'NO C *S")J 

n syntc'redc ar"); 

b>64 then syntc" size "); 

k,2]ssmumb;b!=6xa end; 

gtr 1000 then 3ynt c "storage" ) j 

YNTC"Nn ) ,5'n^lf NWCs"»" THEN GO TO RDlMI 
MS THEN SYMTCNO PROG")J 



PROGRAM COMPILATION B£GINS HERE 



FOR ,CSt=ACS 
COMMENT 

EXS!, , 

syntcil gos 

COMMENT 
nDfp:=CP;=Cw 

FOR a:=1 STE 
IF o="DlM" n 

%lF 'b = '»TRA" T 

XIF 8«"UNT" T 

B'ap 01 V 64; 

IF Bs"IF" TH 

IF R="nN" TH 

lp:-o;a!=3; 

EQLJ 
IF CS=HS AND 

COMMENT 



WHERE, 

LETS 
CAR; 
COMMENT 



/ 

NEQ 



step 1 until ms 00 begin 

if gosub entry then fix fqr level 
if styptcs^ neq then begin if fqrc 
8");fore:=forc?=styp[CS] end; 

identify statement type 

A!=0;Cf^A:=^lWC;^3:=LO^KC3);E^^lOK!=TRUE; 

P 1 UNTIL 19 on IP ^^ = KE.YrAl THEN GU TO EQLI 
R p = "FIL" THEN REGTi^ WK I TE C TTY, P6 » SSEQ C CSl ) I 

GU SOURCE IN end; 

PE-^. TN STYPrCSI : = 20>Ga REM ENO; 

BEGU: STYPCCSI !=2i;Ga REM ENO; 



FORE THEN 



HEN 
HEN 



E^^ BEGIN l.P : =LP- 1 ! A : = 1 9; GO TO EQL i'-^Df 
EN BEGIN L^'':=LP-i; A!='r?0;Gn TO EQL EHp; 

cp;=lp;styp[cS]j=a;sporccS]:=co; 

A NEQ IR THEN SYNT("iMnT EnO");GO TO OPNEA;]; 

1 LET 
< N > LET < E > 

<N> <E> 
E MAY BE A STRING ASSIGNMENT 



arithcO);go to incst; 
ARiTHci ); GO TO incst; 



^0 



ON 



<N> 



PN <E> GO TO <S>, , . . 



HNX; 

RON; 



arithc i);sKiPC3,"UTn"); 

A:«NUMB;f0R b:=ACS step l until MS do if AeSSEQ[B] 



00079600 
00079700 
00079800 
0007990G 
00080000 
00080100 
00080200 
00080300 
00060A00 
00080500 
00080600 
00080700 
00080800 
00080900 
OOOBIOOO 
00081100 
00081200 
00081300 
00081400 
00081500 
00081600 
00081700 
00081800 
00081900 
00082000 
00082100 
00082200 
00082300 
00082400 
00082500 
00082600 
00082700 
00082800 
00082900 
00083000 
00083100 
00083200 
00083300 
00083400 
00083500 
00083600 
00083700 
00083800 
00083900 
00084000 
00084100 
00084200 
00084300 
00084400 
00084500 
00084600 
00084700 
00064800 
00084900 
00085000 
00085100 
00085200 



# 
• 
• 
• 

m 
m 
m 
m 
i 
« 



m 
m 
m 
m 



m 
m 



THCM-.. BEGIN PUTCS. CM !6:] 3J PUT CB . C 5 : 6 3 ) T 

IF STYPCCS] = 3 AND STYPrB3<r'lRC THF.N ST YP [,8 ] : =FORC ELSE 

COMMENT SEE pnR STATEMENT F0« THIS TRICKI 

IF STYPCCS3=20 THEN BEGIN ONC5B3 GO RON ELSE BEGIN PUT{0 ) ; PUT( ) 

END END^GO INCST END ; SYNTC "UNDP GO"); 



COMMENT 



19 



IF 



<N> IF <X><R><E> THEN <S> 
<N> ir <)(><R><E> GO TO <S> 
<X> IS AN EXPRFSSIOM WITHOUT = 
<R> TS ONE OF THE FOLLOWING 

xEQ xGT XLT xGE 
= > < > = 



XLE 



STRINGS, CAN BE COMPARED ONLY FOR EQUALITY OR 



xnE 
<> 

INEQUALITY j 



IFF I EQOKi=FALSEJARlTHCO)n:«OKS=TRUE; 
Cl = TE STRTN THEN ELSe 1.5 

RS=0;IF CHA-3n THEN PFGiN H '• --B + 2 ; CM a : =NlNC ENDi 
IF CHA=:l/l THEN BEGIN' R : =B+ « ? CH A ' =Nis^C ENOjIF CHA = 61 THEN 
ELSE CP:=CF'-i;iF B=-,0 THEN CH(\!=:NWC ELSE GO TO FE«; 
IF CHA NEQ "X" THEN SVnT("NO RELN" ) > CH A : =NV>iC .? 
A!=CHAx64 + NI'IC;fOR 8: = 1 STEP 1 UNTIL 6 DO IF A«KEY[B + 32] 
THEN GO TO FEQiSYNTC'TL RFLN'M^ 



B5=R+1 



FEQ! PUTCB); ARITHCO; IE 
IF STRIN ANO B NEQ 1 AND R NEQ 
SKlP(3*"0Trj"');sKlPC3>"HEN");G0 
COMMENT 

<N> GO TO <S> 



C = AND NOT STRIN THEN SYNT ("STR^STR" ) / 
6 THEN SYnTC'INV IF '• ) J 

in RONJ 

2 GO TO 



GOT! 
COMMENT 



GOS 
COMMENT 



RET 
COMMENT 



COMMENT 



skipcu"0");gq to ron? 

, <N> GOSUB, <S> 

SKIPC2f "UB");Gn TO RON; 
<N> RETUR^< 



GOSUB 



4 RETURN 



sKiPC3/"uRN") ;cha;=;Nwc;go to INCST; 

8 

<N> FOR <E> TO <E> STEP <£> 
<N> FOR <E> TO <E> 



FOR 



DURING cOMf'ILE.' FHR iNFO IS STORED IN FORX AS FOLLOwSJ 

2 3 U 

nBJPOlNTER TO STORE NEXTLINE FORLINE AOOR 

EACH FDR IS ASSIGNED A LEVEL C=FnRC)* WHiCH IS USED TO CHECK 
NESTU:G and OURTNG EXfCUTinN. IN SUBROUTINES FORc IS INITIALISED 
TO MAX FORC OF CALLING CGOSuB; STATEMENT! THIS LEVEL IS STORED 
TEMPORARILY IN STYP. CBjECT FiJRM UF FOR STATEMENT IS AS FOLLOWS: 
LEVEL ASSIGN FINAL INCREMENT NEXTLINE ; 

F0X5 F.ORCJ=FDRC + i;PUT(FORC); IF F0RC>10 THEN SYNTC'll FORS"); 

ARlTHCl);FORy[FORC#/n:BADDR+i; IF CHA NEQ "T" THEN SYNTC" NO TO"); 
SKlP(l,"n");FOR At=l STEP 1 UNTIL FORC-1 DO IF FORX I A# 4 3 =ADDR THEN 
SYNTf^ILL FnR");ARITH(i);iF CHAs"S" THEN BEGIN SK IP C 3# "TEP" ); ARIJHC 1) 

END Else pUT(05;FaRX[FoRC»2i !»co;putco);putco);fdrxcforc*3]:=cs? 

GO INCSTJ 



G0085300 
00085400 
00085500 
00085600 
0008570Q 
00085800 
00085900 
00086000 
00086100 
00086200 
00086300 
00086400 
00086500 
00086600 
00086700 
00086800 
00086900 
00087000 
00087100 
00087200 
00087300 
00087400 
00087500 
00087600 
00087700 
00087800 
00087900 
00088000 
00088100 
00088200 
€0088 300 
00038400 
00088500 
00088600 
00088700 
00088800 
00088900 
00089000 
00089100 
00089200 
00089300 
00089400 
00089500 
00089600 
00089700 
00089800 
00089900 
00090000 
00090100 
00090200 
00090300 
00090400 
00090500 
00090600 
00090700 
00090800 
00090900 



i 






• 



• 



m 
m 



COMMENT 



whf:re <v> is 



NEXT 



NEXT <V> 
A VARIABLE 



NAME 



NEX: SKlP(l,"T");8S=eHC0NVCHWC)-i;iF B=-l THEN SYNT("ILI NFX' 
IF NWC LSS 10 THEN BEGIN 8 ? = 11 X8 + CHA+ t > CHA : =NWC END ELSE B! = UxBJ 
IF rnRC=FORE THEN SYNT("NO FOR ")i 
If 8 + 1 NEG F0RXCF0RC741 THEN SYNT C "NEST I MG" ) J 

A!=CO;CO:=FnRXCF0RC^21lPUTCCS,[US6]);PUTCCS,t5S63); 
C0?=AJSP0BCCS] :=FnRC+l6xF0RXCF0RC*33;F0RXCF0RC#4] : sQ^FoRC ! spORC-l ; 
GO INC St; 

COMMENT U OEF 

<N> DEF FN<L>(<L>.. ... ) = <£> 
FORMAL PARAMETERS MUST BE SINGLE LETTERS ; 



>; 



IF 

IF 



D 

K = 

SUBt 

RD 

CONSTtN 

(" NO ) 

PUTf CC i 

IF \:WC 
COMMENT 



EF! 

OR NWC 
K] MEQ 
U M ; A : 
C0N + A3 : 

p");su 
=COr'STr 

M f " = " 



SKIPC 3 

NEQ 29 
THEN 
rA+5 }B 
= BJIF 

Bt:K]; = 
nchm+b 

THFN 



^"INE" 

THEN 
SYNTC 
:=llxC 
NWC=58 
AJFOR 

3).ru 

S Y N T C '• 



<N'> REAO < 



);SKlPC2^"FiM");K?=CHCaNVCNWC); 

SYNTC" ILL FN"3;aJsOJIPUT(K)J 

"REDG FN*'); 

HCONV(NWC)-n; IF B=-U THEN SYNTC'INV PAR")/ 

THEN GO RDUM;ir CHA NEQ U5 THEN 3YNT 
r:=A STEP -1 UNTIL 1 DO BEGIN 
!63);PUT(C.C5:o]) END; 

Misp = ");ARiTHci);su(3rK] :=:A;Ga TO incst; 

6 READ 

v>/ ... ; 



REAS SKIPC1*"0"); 

RREA: ARITH(03;IF ^'QT \/AR THEN SYNTflNV VAR"); 
ONcss) GO TO »REA;pUTf o);Gn 10 li;CST; 

COMMENT 5 INPUT 

<N> INPUT <V>,... 
<N> INPUT FILE <F>i'<V>^... 
WHERE <F> IS THE FILENAME; 
INP; SKlPf 2,"uT");CFn;G0 TO rrea; 
COM^^ENT 13 RANDOMISE 

<M> RANDOfilSE 

<M> PamDOmtZE ; 

SKlP(6,"D0MISE");SKlPC6>"D0MlZE")>ChA!=NWCJGU TO INC ST; 

15 RESTORE 
<N> RFSTORE 
<N> RESTCPF FILE <F> 
l-^HERE <F> IS THE INPUT FILE ; 

5KiPc/i,"TnRF");cFN; GO TG incst; 

7 PRINT 
<N> PRINT <P> 
<^'> PRINT FILE <F>f<Q>r ,,, 
WHrpir <p> IS /, rU Ef-'AME 
WH[:pr <p> IS A MUMRTR np ELEMENTS OF FORM 

"<Z>*' H 

<E>;- 2 OR 6* 1 

<E>; COMMENT 2 OR 6 

.-,. . . ' 1 (1^5 IF TRAILS) 

; CG*^MENT 5 IF TRAILS 

TAB(<F>) 3 

V^HERE <Z> IS A^!Y STRHvr, 
WHERE <0> IS "<Z>" OR <E> ; 



RAN; 
COMMENT 



PES; 
COMMENT 



00091000 
00091100 
00091200 
00091300 
00091400 
00091500 
00091600 
00091700 
00091800 
00091900 
00092000 
00092100 
00092200 
00092300 
00092400 
00092500 
00092600 
00092700 
00092300 
00092900 
00093000 
00093100 
00093200 

00093300 
00093400 
00093500 
00093600 
00093700 
00093800 
00093900 
00094000 
00094100 
00094200 
00094300 
00094400 
0009 4 500 
00094600 
00094700 
00094800 
00094900 
00094930 
00094960 
00095000 
00095100 
00095200 
00095300 
00095400 
00095500 
00095600 
00095700 
00095800 
00095900 
00096000 
00096)00 
00096200 
00096300 
00096400 



I 

4 
I 
4 
4 
4 
« 

i 

i 
i 



i 
i 






m 



m 
m 
m 



^ PB.I!_ SKIP(g,"NT"3;CFN;CHA;=NWC; AA!=rAlSEI 
RPRI! 0N("%") BEGIK! PUT(0)^60 TO INC8T END/ 
aN(58) BEGIN PUT(n;AA?=FAL'^EJ 

IF MWCs"?:'' THEN BEGIK PUT(5)J GO 70 INCSI END 
ELSE GO TO RPR I END? 

0N(";" OR CHA = ) BEGIN AAJ^FAiSEMF NWCs"!" THEN BEGIN PUTC5); 

...GO .INGSI ...END ; GO TO RPPi .END^ 

ON (63) BEGIM AA ? sFALSE; PUTC ^ ) / PUTC CP ) KPR J ^POINTER (PROG CCS* 23 ) +CP; 
SCAN APR:CPR UNTlL=63;e!*DELTACCFR#ApR);puT(B)J 

cpiscp+b+i;chaj=nwc;go to rpri end; 

IF L00K(a) = -TAP(" ThFM PEGI^! A A : =F ALSE; PUT ( 3 ) / CP ; =LP ^ AR ITH ( D ; 

IF CHA MEO 0<5 THEN SYVTCNp ) P" 3 ; CH A ; =NWC ; GO TO RPRI FNO; 

CPJ^CP-1;IF' AA THEN SYnTC'NO SEPf")^AA 

B»sCO;PUT(23; ARlTH(C);iF STRIN THEN 

REPLACE POB+P BY "6" FoR IJGO TO RPRU 

COMMENT 

<M> PAGE 

skipc 1 ,"f");cha:=n"wc;go to 



=true; 



U PAGE 



PAG 

COMMENT 



iNCSi; 



10 MAT 



WHERE 
MAT! 



<N> 
<N> 
<M> 
<M> 
<M> 
<N)> 
<N> 
<N> 
<w> IS 



VAT 
yAT 
N-^AT 
N/AT 

MAT 
MAT 
MAT 
MAT 
AS 



READ <L> 

READ <U>(<N>,<N>) 

PRINT <L> 

PRINT <L>(^M>^<N>) 

LFT <L> = ( <t.> )*<L> 
<l_>=(<r>)*<L> 

LET <L>-<^^> 
<L>=<M> 
DESCRIBED IN EXECUTE ( PROCEDURE 



1 
1 
2 
2 

li 
4 

3 
3 



MATOP) 



GO 

GO 
IF 



cmaj=nwc.;a:slook(^)jif a="Reao" then begin putcdicpssLp; 
to romt e.ndmf a = "prim" then begin putc 2 ) 1 cp ? slp^ sk ipc 1 *"t" 3 / 

TO I.OMT EN0;CPSsCP-lJSKJPC3#"LET");A: = CP;BtsCHMATCNWC);CHAs=NWCI 

NWC = 29 THEN BEGIN PUT C 4 );PUT C B ) / AR ITH( 1)| CHAS =NWC;PUT( CHMATCNWC ) ) J 
END ELSE BEGIN PUT( 3 ); PUTC A ) END?GO TO REM; 

lOMTS K:=:CH^AT(NWC);PUTCK)nF NWC = 29 THEN BEGIN 

FOR ej = i»2 on GEGiN) a; = mumr;if a lss n or a gtr arrckj.pi 
sYNTf" 5I/:e")>putc n emd;cha: = nwc; 

END ELSE BEGIN PUT( ARRf K , 1 ]) 5 ^UT C ARRf K* 2 ] ) END* 
PUTCONC"J") 1 ELSE O^ONC";") CHA :=NWC; GO TO INCST; 



THEN 



COMMENT 

DAT! 

RDAT! 
COMMENT 



12 DATA 



<N> DATA <E> 
SKIP(1,"A"3; 

ARiTH(r);0N(5e) 



* • • • 



GO 



TO rdat;putco);go in:Cst; 

17 stop 



<w> 



stop 

END 



<N> 
ENy: IF CS NEC MS AND 
IF A=17 THEM CMAisNWCJ 

XN_CST! IF CHA NEQ "% 

COMMENT 

<N> REM <Z> 
WHERE <Z> IS ANYTHING 
REMSEPPt end; 



18 END 
A=1P THF^ SYNT("NOTLAST");CHA:=NWC; 



T"HFN ?YnT("T00 MCH'M^ 



16 REM 



CSJsMSHF NF = 2 AND 
IF FNM[3M] = 7 THEN 



% SORT OUT FILES IF 2 TO pE USED 
FNMt3,n=FNMr3f2] THEN SYNTC" FILES "); 
BEGIN IOt3]J = lO[n;jD[nJ = lO[23; 



00096500 
00096600 
00096700 
00096800 
00096900 
00097000 
00097100 
00097200 
00097300 
00097400 
00097500 
00097600 
00097700 
00097800 
00097900 
00098000 
00098100 
00098200 
00096300 
00098400 
00098500 
00098600 
00098700 

00098800 
00096900 
00099000 
00099100 
00099200 
00099300 
00099400 
00099500 
00099600 
00099700 
00099800 
00099900 
00100000 

ooiooioo 

00100200 
00100300 
00100400 
00100500 

00100600 
00100700 
00100800 

00100900 
00101000 
00101100 
00101200 
00101300 
00101400 
00101500 
00101600 
00101700 
00101800 
00101900 
00102000 
00102100 



• 



m 
m 
m 
m 
m 
m 
m 



# 



m 



if not sy then begin wr.t tec tty* stp# "frrors" ) j go 
object;=true;go to execute? 



TO souRCEiN end; 



INTVP: SYNT crVFRFLW") ; .fsfUriTt: 

FLaGP! SYNTC'^AmE ")} 



SYNTC" QUOTES" )J 



COMMENT' 



END COHPlLt 



FXrcUTES 



«»tiK<nfn«f'«iiipiMM''«»iR»*» 



EXECUTION OF 
USERS PROGRAM 



m 



• M'n«r>m«»aB**f«^ip<"«>cr^nrsM«"w«v«rw'«Km«3«B!'Wi«ip;«*(!'^i|w 



FILE 
FILE 



EXECUTE! 

IN 
OUT 



BEGIN 



FILI 
FTL2 



DISK 

DTSK[?0! A^.-'EASt7.E1 



INTEGER ARP/Y 



SVFC 1:103* 
FUNCt 1526], 
STPGSr-1 :i00»0:2], 
JORtl M 4]f 
lOFtl JIOl* 
ADR[r:?03; 



% 
% 
% 
% 



" "(2# 10,300); 

" "(2^10,300/iSAVE 

HOLOS GGSUB CALLS 

DEFINES 

STRINGS 

J/O PSEUDOBUFFER 
•I 



7)i 



% ADDRESS STCK FOR EVAL 



ARRAY 



INTFCER 



STORErO!10003* 




STKtC: 


?o]; 




XRNQ, 




% 


CO, 




% 


RDAT* 




% 


NGOT* 




% 


SLVE* 




% 


PDTP, 




% 


HSTO* 




% 


MSTR* 




% 


IR* 




% 


NR, 




% 


RT, 




% 


MF* 




% 


STCK, 




% 



% 



HOLDS VARIABLE VALUES 
VALUE STACK FOP EVAL 



ETC 



PSEUDO-RANDOM Nl'NBEH INDEX 
CURRENT POSITION IN OBJf*] 

DATA STATEMENT 
GO COUNTER 
GDSUR CCiUNTFR 

POSITION IN DATA STATEHENT 
TOP OF STORE C*3 
UiP OF STRGSt** ] 
INPUT FILE SEQUENCE NO 
OUTPUT FILE COUNTER 
RUN TERMINATION TIME 
FILE COsTTY, OTHERWISE DISK) 
STACK POINTER FOR EVAL 



Ai.e*r*nM/>J*K*L*u^v,^.,x>Y,z,AS; 



REAL 

POINTER 



LABEL INCST 



R*s,t; 

PlOB, 
PObB» 
PBR, jpr; 



% HASH 

% CuNRFNT POSITION IN I0B[*3 

% INITIAL 



% TFACE PACKAGE 
%F0RMAT T1 n^,X?»A3,>;5, "VALUE ASSTaNED= "U ) > T2( I 6, X2* A3, X5, " TO STMT " 
% ,I6)»T3( T6,X2,A3); 

BOOLEAN TRACE0N»TLIN'?5EP0INTEF ITR; 
XPROCEDURE DSTRC A ); VALUE AHNTEGEP a; 



00102200 

00102300 

00102400 

00102500 

00102600 

00102700 

00102800 

00102900 

^00103000 

-00103100 

-00103200 

-00103300 

-00103400 

;OC103500 

00103600 

00103700 

00103800 

00103900 

00104000 

00104100 

00104200 

00104300 

00104400 

00104500 

00104600 

00104700 

00104800 

00104900 

00105000 
00105100 
00105200 
00105300 
0010540® 
00105500 
00105600 
00105700 
00105800 
00105850 
00105900 
00106000 
00106100 
001G6200 
00106300 
00106400 
00106500 
00106600 
00106700 
00106800 

00106900 

00107000 
00107100 

00107200 
00107300 
00107400 
00107500 
00107600 
00107700 



i 

4 

i 

« 

i 






m 



• 



%8EGIN wRiTF.f ]nKt*],T3»SSE0[C5].IF TLIN THEN KEY t ST YP C CS 3 3 ELSE " "); 00107800 

%REplACE ITR:PniNTF:R(inFt*3) + l/4 BY ".STRING ASS I GNeD = " > REPLACE ITRJlTN 00107900 

#. XBY ••"« poR IJREPLACE ITPSITR BY POIKTER C STRGS t A' U ) FOR STRGStA^OlJ 00108000 • 

XREPLACE ITR BY """ FCR 1 ; WRT TE (FL t OU ] , 9M0F C * ] ) ULIN : ^PALSE END> 00108100 

DEFINE TR0CTR01»TRO2)s»*%IFTR01 THEN BEG I N WR I Te ( PL t OU 3 * TR02, SSEQ t C S U 001 08200 

% IF TLIN THEN KeYCSTYPC CS ] 3 ELSE " "## 00108300 # 

TRl(TRll)s#, % = TR0(TRACECI^^Tl),TRinjTLIN5*=FALSE END#* 00108400 

TR2CTR21) = #, !K = TRO(TRACEON»T2)*SSEQCTR2l3 )nLlNJaFALSE END#, 00108500 

H TR3 =#* l = TPO(TLINI»T35)nLlM:«FALSE EMD#/ 00108600 • 

TR4fTt?ai)»#; %5iF TRACEON THEM DSTR(TR41)#^* 00108700 

00108800 

# % PRnCFHURES FCR EXECUTE: 00108900 • 

00109000 

COMMENT 00109100 

# --- GET GETS NEXT CHARACTER FRDM OBJ '» 00109200 • 

00109300 

DEFINE GET=:0?inBJ[C0,rii6:^4]3C5J47-CG.[2:33x6J6];C0:=C0 + i; 00109400 

• IF cn.[2!33=c THEN cr!=cn+i#; 00109500 • 

COMMENT . 00109600 

ERROR DEAL« WITH EXECUTION TIME ERRORS; 00109700 

H 00109800 • 

PRHCEDURE FRRoRC A ) ; VALUE a;INTEGER a; 00109900 

BEGIN SWITCH FORMAT ERR : = C "ERRO"* I 6 ) * % SHOULD NOT OCCUR., %0 00110000 

# ("SUBSCRIPT OUT OF PCUn^DS AT LINE "M6)* %X OOllOlOO • 

C"LnG OF NEGATIVE OR ZERO NUMRER AT LINE "»I6)^ «2 00110200 

("SOR OF NEGATIVE NUMBER AT LINE "*I6)» %3 00110300 

# ("UNDEFINED FUNCTION AT LINE "#163* «4 00110400 • 
("INPUT STATE'^fNT ATTEMPTEO IN BATCH MODE AT LINE"*I6), OOUOSOO 

("GH TO UMOEf^lNED STATEMENT NUMBER AT LINE 'Me)* 16 00110600 

# ("RETURN WITHOUT GOSUB AT LINE ">I 6 ) ». %7 00110700 W 
("ARGUMENT FT" SIN, CCS, TAN OR EXP EXCEEDS 158 AT LINE'M6)* %8 00110800 

("INCREMENT UNDEFINEE QR ZERO AT LINE "*I6)* «9 00110900 

# ("NEXT WTTHniiT FOR AT LINE "*I6), %lO OOIUOOO W 
("STORAGE EXCPEDED AT LINE ",I6)' %11 OOUUOO 
("IMTEGER aVE'^FLOW AT LINE ".16), %l2 00111200 

# ("iNVALin AnOPESS AT LJNE ",I6), *;i3 00111300 
("DIVIDE 3i ZERO AT LINE ",16), ^H 00111400 
("ILLEGAL EXPONENTIATION AT LINE "*I6)» «l5 00111500 

# ("FLOATING-POINT OVERFLOW AT LIME "M6)* %l6 00111600 
- ("GnSUBS NESTEO -TOO DEEP (MORE THAN 10) ATLINE"*I6), %l7 00111700 

("ILLEGAL EXPONENT ON INPUT AT LINE ",16), «18 00111800 

# ("MISPLACED STRING IN INPUT AT LINE ",I6), fl9 00U1900 
::.i„: :...:. :......:.. ..:..:. C'!IWP^I:.-.&IRIMG TOO LJ3NG AI.XINE "fI6).» %20 00112000 

("OUT OF OATA AT LINE ", 16 ) , ("ERR22", I6 ) , % ERR22 SHOULDNT OCCUR 2l»22 00112100 

# ("ILLEGAL MATRIX OPERATION AT LINF. ",I6), 123 00112200 
("INVERSE OF ILL-CONDITIONE!^ MATRIX AT LINE "»I6), %24 00112300 
("INSUFFICIFMT SPARE STORAGE FOR MAT OP AT LINE ",I6), %25 00112400 

# ("ILLEGAL FILE OPERATION AT LINE ",I6), %26 00112500 
("INPUT FILE NQT ON DISK AT LINE", 16), %27 00112600 
("INPUT FILE - INVALID USER AT LINE", 16), «28 OOU2700 

# ("INPUT FILE IS NBN-STANDARD AT LINE", 16), 5^29 00112800 
("OUTPUT FILE - DUPLICATE NAME AT HNE"#I6); 130 00112900 
COMMENT LAST MESSAGE HERE IS NO. 30 ; 00113000 

FORMAT DUR("THE FOLLOWING LINE WAS AWAITING OUTPUTJ"), 00U3100 

FILATCA6*" FILE SEQUENCE NO.", 18); 00113130 

WRlTE(TTY,ERRrA3,SSECrcS3); 00113150 

# IF INFILTOG THEN WR I TE( TTY, F ILAT , " INPUT", IR); 00113170 



m 

m 

m 



m 



m 



IF nUTFlLTOG THEN WP ITF ( TTY^ F IL AT* "UUl PUT" f NP ) > 

IF DFLTACPQUB^PIOB) GTR jHFM BFGIN WR I TE ( TT Y^ OUi^ ) / 

WRlTE(TTy.9,l08C*1) EMO; 

LacKcriLi);L0CK(riL2);Gn to sthp f.nd; 



COMMENT 



EVALUATFS ARITHMETIC EXPRESSION 
(l?EVEF<SE PnilSH DECODER) 



EVAL 



REAL PROCEDURe 

BEGIN 

lABn. EO»nOME.EXPnNf RPT^SS»S»NU^'.»VR^AR*SF*UF*AD*SU*MU#Ol»EX).FlN* 

inm,5trga»stpgc^strgv; 

SWITCH TYP:=FTN>MUWiiVP*AR»ur*SF'FlN^F:Q'lNM,AO*SU*MU»OI»EX*STRGV* 

strga*strgc; 

DEFINE top-stki:stck3;stck;=stck-i#; 

DEFINE. STACKCSTACKj ) = STCK!rSTCK+l>STKC5TCK] :sSTACKi;GO TO SS#I 
COMMENT ADPP RETURNS RESULT ADDRESS (IN STORf IF REALj» STRGS 

IP- STRING). INTERMEDlATt. RESULTS AND ADDRESSES ARE STACKED 
IN! -^TK ANin ADR RFSECTIVELY, ; 

STRiNtaFALSE;STCK?=c; 

ss? adr!:stck3!saddr;cha:==get;go to typccha+u; 
NUMi a:=get;a;s:ax6'-i+ge:t;stackcconst[a3 ); 
STRgV: Arnp: = c-ET;sTRiN:=TRi.iF;srACK(0); 

STRGA: K :=GFT;A:=TriP; if A LfO HR A GTR STRARCK,13 
THEN ERROP( ]W aCDR !=STpARrK^O]+A; STRIN: = 1RUESSTACKcO) J 

STRGC; A!=GFT;k:=GET;REPLACE PHI nTERC STRGS C 0» 1 3 ) 3Y POINTER 
(PR0GCCS>23)+K for A: STRGS [ 0, 3 : =a; StR IN s sTRUEi ADDR : =0; STACK { ) ; 

inm: stack(O); 

VR: K :=GFT;K:=K-i;ADnRs = UXK + Gh:T;sTACKC3TaRECADDR3); 

aR: K:=GFT;4:=R:=TnP;lF ARRrK#^3 NEQ THEN BEGIN 

AJ=T0P;IF B LEO PR ^ GTR ARR[K^2] THEN ERRQRCn END; 
IF A LEG np A GTR ARRCK*!! THEN ERRGRCl); 
ADDR»«ARR[Kf 3+CA-l )xApRCK,23+B-i;STACKCSTORErADDR]); 

sf: 

begin label sop , s i f , rpf , t af » atf * fxf » ltf » abf » enf * fnq, dc * 
fix#sgn*rnd; 

SWITCH Sf UK'!=5TF»C0F>TAF^ATF*EXFrLnF,AeF*ENF*S«P*FIX,5GN,RND; 
DEFINE TEST = 1F ABS(R)>358 THEN ERRORCS)?**; 
AJsGETIRSsTOPfGO TO SFUNfA-183/ 



SIF! 
COF; 
TAF: 
ATF! 
EXF: 
LOFj 
ABFJ 
SQR! 
ENF J 
Fix: 
SGN; 

60 TO Dc; 
RNDJ 

P«=XRND>!2*C' 
0C« 

COMMENT 

UF ? 



TEST;R{=SINCR);Gn TO Dc^ 

TrST;P:=CPS(R); Gf TG Dc; 

TEST;R:=SlN(R)/CnS(R); GO TG Dc; 

R!=ARCTAf.:(R); Gn to DC; 

test;r;=fxp(r); gu to oc; 

if p lfq then error c 2 ) ; r : =ln ( r ) > go to qc; 

r!=abs(r3; go to dc? 

if p lss c then errur ( 3 ) ; r : =r* . 5; go to dc; 

P!=ENT IER(F);G0 TO DC; 

RI = ENTIFP(R) ; IF R LSS THFN R:=R+i;G0 TO DC/ 

RJ=TF R LSS THEN -1 ELSE IF R GTR THEN 1 ELSE 

XRNn!=XPNnx?pf^<5;xRND!=XRNn,C23!233; 

!3);G"n ' fc' dc; 

STACKCR) end; 

USER FUNCTinNS SECTION ; 
PSEfilN INTEGER AS# SVSK* SV AOUR ; 



ARRAY DUMt 1 :?0,t ! 4 3 » SVSTK* SV ADRC ! 20] ; 



00113200 
00U3300 
00U3400 
00113500 
00113600 
00113700 
00113800 
00113900 
00114000 
OOIUIOO 
00114200 
00114300 
00114400 

00U4500 
00U4600 
00114700 
00114800 
00114900 
00115000 

00115100 
00115200 
00115300 
00115400 
00U5500 
00115600 
00115700 
00115800 
00115900 
OOU6000 
00116100 
0011 6200 
00116300 
00116400 
00116500 
00116600 
00116700 
00116800 
00116900 
00117000 
00117100 
00117200 
00117300 
00117400 
O0U75OO 
00117600 
00U7700 
00117800 
00U7900 
00118000 
00118100 
00118200 
00118300 
00118400 
00118500 
00118600 
00118700 
00118800 



• 
• 



• 
# 



# 
# 



II i 

m « 

00118900 

k»=get;as!=csjcSj=:func[K];if cs=o then BtsiN cs!=as;errorc4) end; ooii9ooo 

• 85«co;co!sSpo8[CS3;c!=get;fdr a!=i Step i until subcki do begin oou^ioo C 

.COMMENT SAVE VALUES OF FORMAL PARAMETERS AND STQRE ACTUALS; 00119200 

RS=TGPKSsGETK'=64xC + GET;DUMCAM 3s=CJDUMCA^23J=STORE[c3;STaRE[C3JsR 00119300 

• endisvadors=apdr;svsk!=stck; 00119400 % 

: . FOR AJsO STEP 1 UNTIL 20 DO BEGIN SVSTK C A 3 : =STK C A 3 ; SVADRC A3 J -ADRC A] 00119500 

end; 00119600 

# COMMENT NOW EVALUATE FUNCTION AND RESTORE FORMAL PARAMETERS; 00119700 g 
_R5*EVAL;F0R A;s1 STEP 1 UNTIL SUBtK] DO STORE CDUM[ A.. 13 3 5 =DUMC A^ 23; 00119800 

FOp a:=0 step 1 UNTIL 20 00 PEGIN SlK C A 3 : =SVSTK C A3 ; AOR [ A3 ! =SV ADR C A3 00119900 

# END; ADDR!=SVAnpR;STCK!=SVSK; 00120000 ^ 
CS5=AS;cni=p;STACK(R) END; 00120100 

EQ: ir STRIN THEN REGIN ADDR : " A : = ADR C STC K 3 ; S TCK ! =STCK- i ; 00120200 

# B!=ADRCSTCK3;rFPLACE PnlNTERCSTRGSCB,*}) BY POINTERC STRGSC A» *] ) 00120300 H 
FOR 3 W0R0S;TR/iCB3;Gn TO SS END; R : ="l OP; ADDR : = ADR C STCK 1 ; 00120400 

STOREC ADDP3:=STKrSTCK1 :=R;TRHR);Ga TO 5S; 00120500 

.# AO! Pt=Tnp;R5=R+T0p;sTACKC«); 00120600 4| 

SU5 . R.!5:TnP;R:='R + Tn''';STACKtR); 00120700 

MU! R;=TnP;R!=RxTnP;STACKCh); 00120800 

# OIS R!=T0P;R:si/RxTnP;STACKCR3; 00120900 # 

ryj T:=TnP;R:=Tnp; ir T HZQ ENTIER(T) ANO R LSS 00121000 

THFM ERR0RC15 V;STACK(R*T); 00121100 

# FIN! EVAL, : = STKrn EMO; 00121200 # 
COMMENT 00121300 

--- OUTP OUTPUTS CONTENTS DF PSEUDQ-BUFFER ; 00121400 

# 00121500 
PROCEDURE DUTPj 00121600 
BEGIN IF MF>0 THfm FRPOR C 26 ) > T« J ! 00121700 

# WRlTE(FLrnL]M/4M0R[*1 );REPLACt p I GB ; =?iJUR J =POI NTERC lOB t * 3 ) BY 00121800 
." " FOR 112;.IF GU = 1 THEN P T OB ! =PaUo s =PuUB + 20 END; 00121900 

COMMENT 00122000 

MORE FALSE I^ END OF STATEMENT ; 00122100 

00122200 

BOOLEAN PROrEDuRE MnREJ 00122300 

• begtm integfr A,B;A!=cn;85=CiETfM0Rt!3B neq o;co:=a End; 00122400 

COMMENT 00122500 

— - OUTNUM PLACES NUMBER IH PSEUDO'-BuFFER ; 00122600 

• 00122700 

PROCEDURE CUTNIJMCA^F); VALUE A*f;REaL A; INTEGER EJ 00122800 

BEGIN c>-iAj=r;cp! = rp-i ;wRirrcinRE[''UwuMi;F3* A); ;« cares ooi22900 

• scam APR:CFP f^fiR 1 '^ U^TTL K"f^"; 00123200 

IF DELTA(CPF.» APR5 NEQ 16 THEN REPLACE APR 8Y "E" FUR X) 00123300 

^ IF DELTACPOUB^PlOB) GTR 60+FX4 THEN OUTP; 00123400 

• REPLACE PIORJPIOB BY POINTER C TDBEC U ) FOR 1 /( UNTIUs48; 00123500 

REPLACE PIOPSPIOB BY " " FQR 1 END> 00123600 

_ COMMENT 00123700 

• --- Qun PLACES " IN OUTPUT yUFFER ; 00123800 

DEFINE QU3=LF MF>0 THEN REPLACE PlGdtPIOB BY """#; 00123900 

COMMENT 00124000 

• --- MATOP PROCESSES MOST MAT STATEMENTS ; 00124100 

. 00124200 

PROCEDURE MATnp; 00124300 

• BEGIN INTEGER U' V* W» X> Y^ Z.» T • J; 00124400 

-:.. COMMENT MAT STATEMENTS CONCERNED HAVE FORMAT 00124500 

<N> MAT LET <L>=<M> 00124600 

• <N> MAT <L>=<M> 00124700 



• 



THr «;fcgnd character ih <m> is USt:D TO 

THIS CAN BE * + - E 3 R N 

% IS FMO^STaTEMFNT CHARACTER) 

PIVOT 



meNTIf'Y 



ACTION TAKEiM 




<L.>*<L> 
HASH STORAGE TS USED TO AVOID TROUBLE WITH A=A*B ETC ; 
0N(r*"3 BEGIM b:=CHCONvCNCH); 

Ul=ARRrK,lJ'"l!VS=ARRrK,?]-i;w5=ARRCA,ll-i;yjsARRCA,2]-i; 
YI«ARRtB*l]-l!Z!=ARR[B*23-i.!lE U NEQ W OR V NEQ Z OR X NE9 Y 
THEN ERB0R1?A);IF MSTO+(U+t)x( V+1) QTR 1000 THEN ERR0R(25)J 
FOR W! = STEP X UNTIL U 00 FOR Z'.-O STEP 1 UNTIL V 00 BEGIN R: = o; 
FOR Y; = n STEP 1 UVTIL X 00 R S =R + ST0RE E ARR [ A^ 3 + Xxw + W + Y ] x 

sToRErARRrH»oi+Yxv+Y+Z3;sTnRErMSTn+wxv+w+Z]!=R end; 

FOR W!=0 STEP t UNTIL U DO FOR Z;=G STEP 1 UNTIL V DO 
STORE CARRCK*01+WxV + W + Z] J=STORE[^^STQ + WxV + W + Z]; 
CiP. TO DOME end; 

COMMENT 

<M> IS <L>+<L> 
BEGIN Z.! = 1 ; GO TO AOSU EMDJ 



MATRIX ADDITION 



ONC"+") 
COMMENT 

N ( " - " ) 

COMMENT 

N ( " n " ) 
COMMENT 

QN("D") 

COMMENT 



BEGIN 



<M> IS 
Z?=-i;Gn 



<L>-<L> 

TO Aosu end; 



<M> ts con 

BEGIM Z!=Y: = i;r,a TO COM3 £N0; 



- MATRIX SUBTRACTION 



ALL ONES 



3 IDENTITY MATRIX 



BEG IN 



<M> IS IDN , 

IE ARR.CK,,1]. .NEQ. ARRCK#23 THEN ERROR C 23 ); Z J =1 ; Y J sQj 



<M> 



IS • ZER 
ONCE") 



£ ZERO MATRIX 



TO 
R 



IS TRMC<L>) 
USED TO AVOID 



CONS end; 

TRANSPOSITION 



; 



GO TO CONS end; 0N("E") BEG IN Z 5 « Y 5 =0; GO 
COMMENT 

<M> 
HASH STORAGE USED TO AVOID TROUBuE WITH A=TRN(A) } 
ONC'R") BEGTm rHA!=NCH;CHA:=NCH; a:=ChCG!\VCNCH);IF A^q THEN ERRQR(233; 
L!S=ARRrK,l1-i;v:=ARR[K,,2]-i;W!==ARR[A,l]-i;x:=ARRtA,23-i; 
IF ij NEf^ X OR V NlEa In JHEM ERWQ'iiC23); 

IF" MSTO+CU+nxcV+n GTR 1000 THEN ERR0R(25)f 

FOR UJ=0 STEP 1 UNTIL X DO FOR V:=0 STEP 1 UNTIL W 

ST0RECMSTn + Uxw + U4-V]: = STaRF[ARRCA.. OJ+VxX + V + U]; 
FOR U!=0 STrP'1 "UNTIL X DO FOR v':=0 STEP 1 UNTIL 
STqreC ARRtK»0]+Ux'/j + u + V] : 
GO TO DONE EiNin,; 
COMMENT 

<M> IS INVC<L>) 



on FDH \J , _,„ . „,. 
:ST0REC■>-^STa + Ux^^ + U + V3; 



w 



DO 
DC 



N INVERSION 



<M> IS INVC<L>) 
DN("N") BEGIN CHA : =NCH ; CH A : =NCH; A : =CHCON V ( NCH ) ; 
Ul=ARRCK*l i; IP U NEQ ARRCK,2] OR J NEQ ARRfA^U OR U NF 
THEN ERRORC?3);FOR l:=0 ST^-'f' t UNTIL U'l 00 FOR JJsO ST 
DO AA( I+.UJ+l) :=STORE[aRR[Aj'0} + IxU + J]; 
FOR v:=l STEP 1 UNTIL U 00 BEGIN PlVOT:=o; 
FOR |!sl STEP ! UNTIL U DO 9EGIN IF V NEQ 1 THEN 



ARRtA,23 
EP 1 UNTIL 



U-1 



00124800 
00124900 
00125000 
00125100 
00125200 
00125300 
00125400 
00125500 
00125600 
00125700 
00125800 
00125900 
00126000 
00126100 

00126200 
00126300 
00126400 
00126500 
00126600 
00126700 
00126800 
00126900 
00127000 
00127100 
00127200 
00127300 
00127400 
00127500 
00127600 

00127700 
O0127S00 
00127900 
00128000 
00128100 
00128200 
00128300 
00128400 
00128500 
00128600 
00128700 
00128800 
00128900 
00129000 
00129100 
00129200 
00129300 
00129400 
00129500 
00129600 
00129700 
00129800 
00129900 
00130000 
00130100 
00130200 
00130300 
00130400 



• 



# ■ 

• COMMENT- 



i 



« 



• ^' ■ i 

, f.OR XJ = l STEP 1 UNTIL V-IDO IF Ir^lRCX] THEN 60 TO EX END; 00130500 

i TF ABSf AACI.V))GTR ABSCPIVOT) THEN BEGIN P I VOT I =AA( I * V ) ; Y ! = IR[ V 3 ! = 1 00130600 

• ENOI 00130700 m 

EXJ FND;IF ABSCPIVOT) LSS .0001 THEN ERRORCa^j; 00130800 

FOR J! = l STf-rP 1 UNTIL U DO A A C Y » J ) ! =A A ( Y# J ) /P I VOt; AA ( Y, V ) J = 1 /Pi VOTJ 00130900 

• FOR i! = i stf:P 1 UMTTL U do if I NEQ Y THEN BEGIN AltsAACI^V); 00131000 
AA(t,V)!=-aT/piVOT;FGR J: = i STE;^ l until U do if J NEQ V then 00131100 
AA(i,j)!sAAC I,.J)"'AlxaA(YiP J) END ENO; 00131200 

• FOR I{=1 STEP I UNTIL U 00 00131300 M 
- ^.^^ ^ BEQIM FOR, j:=l STEP 1 UNTIL U DO TEM [ j ] ; =AA( I , J ) ; 00131400 

^ FOR JjslSTFP 1 UNTIL U 00 A AC I /l R C J 3 5 ! = TEMtj3 ENOi 00131500 

• FOR Jjsr STEP 1 UNTIL U DO BEGIN FOR Is=l STEP 1 UNTIL U pO 00131600 M 
TEM[I]!=AAClRCl3,J)JFnR IJ = 1 STEP 1 UNTIL U DO AAC 1 1 J 3 : =TEM[ 13 00131700 

END I GO TO DONE END; 00131800 

• 35 EQUALITY 00131900 M 
COMMENT <M> IS <L> J 00132000 

0NC"%") BEGIN t5: = A;z:=0J Gn TO FQ--! Emq; 00132100 

• ERRORCPB); 00132200 M 

ADSU! P:=CHCCMVCNCM) ; IF ■-] = Q THEN ERR0R(23); 00132300 

IF ARRrA,n NFq ARRCB»ll OR ARRCA;i23 NEQ ARRCR,23 THEN ERR0R(?3); 00132400 

• EQMJ US=ARR[K,l].;vs=ARRCK*2];iF u NEQ ARRCA,U 00132500 
^^ _ _0R_ V NEQ ARRrA,23 THFN ERR0RC23); 00132600 

FOR iJsO STEP J UNTIL U"! nfl FOR J!=0 STEP 1 UNTIL V^l DO 00132700 

• AAC i + l, J+n; = STaRr[ ARRrA^OT + Ixij + J] + 2xSTORECARRi:B,0] + Ixu + J3i 00132800 m 
GO TO done; 00132900 

CONS: U!=ARRCK,i3;F0R I?=1 step 1 UNTIL ARRfK^U DO 00133000 

• FOR jj = l STEP 1 UNTIL ARRCKi.23 DO AACI,J)JsIf I = J THEN Z ELSE y; 00133100 
OONEJ GO TO INCST END; 00133200 

LAPEL RPT.REM,DAT.EXS,LET,RLET»ONX^ : 00133300 

• INP.PRIi.RpRI,XPRI*MAT*ENX.RREA.XREA*QDAT,FREA/'RES»NDAT# 00133400 m 
STRv^rOL'TNTVR^lNDEXR^DZER^EXPVR^ 00133500 

NM,TAB^COM»STR,EPRl,OU!VOUF» 00133600 

• IFF*GOT'r,OX.GOS'RET^FOx^NEX'FOi.O£F*REA»EREA*RAN'PAG; 00133700 m 
^^.-_ -SWITCH J3PNJ = LET*GnT,G0S^RET»lNP.'REA^EPRI*F0X*NEX^MAT# 00133800 

D£Fi.DATj'RAN>PAG/PESi«RFM/ENX'ENXMFF»aNXJ 00133900 

00134000 m 

SWITCH .TYp::iXPRl#C0M.*NMj'TA8»STRMNCST.STRy; 00134100 

00134200 

.-. ,, ,.: . . — — ,.-».. ...00 134 300 # 

:"•-—.'•--■"-.-■*"•-.— - EXFGUTE. BE^jINS HERE ---,- — ---.-.»-------,, 001 34400 

00134600 m 

lNTQ:VR.s=JNTVR;EXPOVR!=EXPVR;ZERO:sDZeRHNf)£X: = lNOEXR; 00134700 

WRITECTTY,MESS);Rtj=TImE(2)+TIM;IF Ou=1 then WRITE(TTY,DV0); 00134800 

wRlTECFL[nu]^SPC);NR:siRisRDAT?=ROTPj=NGOT:s:0;THACEUNS = TLIN!sFALSEI 00134900 M 

forcj=slve:=o;xRnd8=ioi;cs!=acS'i; oousooo 

POURJ=PlOR:=POlNTEP(inBC*3) + 2oxfJlj; 00135100 

REPLACE P01nTEr(I0RC*1) BY " " FqR 112; 00135200 ^ 

00135 300 

% GET FILES IF NEEOEOS 00135400 

IF INFILTOG THrN 3EGIN FILL FILl WITH 1 [ 1 3 , T I ME C - U J 00135500 # 

SEarCH(FIl1.ANsAC*1)}XF ANSACOJ LEQ THEN ERROR C 28+ANSA C 01 ) ; 00135600 

IF ANSAC31 NEC 10 OR AnSA[43 NEQ 300 THEN ERR0R(29) END^ 00135700 

IF OUTFILTOG THEN BEGIN FILL FIL2 WITH 1 C 2 3 * T I ME C - 1 ) ; 00135800 A 

SEARCH(FIl2,ANSA[*] );TF ANSAC03 NEQ -1 THEN BEGIN 00135900 

WRlTECTTY,F13M0C23.C4i:36]); 00136000 

IF IU = 2 THEM US=»0 ELSE 00136100 # 



• 









REAncnv,Rt;p.u); IF u mf:q "vrs" the.m f:rrgr(30) ti\D end; 

COMMENT f^ETLlRN jO HE^^E AFTER EACH STATEMENT^ 



REM:OATriNCST! tr3; CS 5 =CS+1 ; 

EXS; mf:soJ % FIRST SEE IF EXCESS TIHE 

IF TIME(2) GTR RT THFM BEGIM WR ITE C TT Y » 3K ) ; GO TO ENXEND) 

IF STYPtCST>19 THEN BEGIN TRACEQM J = 3TYPC CS ] =20 J GO INCST END! 

IF TRACEON THFN TLIN:=TRUEJ 

UJ=STYP[CS1 JCQjsSaOBCCSlJGn TH OPNCU]; % NOW GO TO APPROPRIATE PLACE 

% LET STATEMENT 
"let: '?!=EVALJGn TO INC3T5 

% ON STATEMENT 
ONX! U5=EVAl; 

FOR V! = l STFP 1. UNTIL 25<L)-o on ISF'GIN 5:=GET END^GO GOT; %(STET) 

% IF STATEMENT 
IFF! r:=FVAI..;iF STRIN IH^rl'M BEGIN 
COMMENT STRING IF ; 

u«*get; 

REPLACE IPR:=PnTNTERCSTRGSE"l.*1) OY PQI NTERC STRGSC ADDR* * 3 ) FOR 24; 

R'sFVAL'GO TF T PR = prj IMTERC STRGS [ ADDRj- * J ) 

FOR STBGSr-1. ,01+8 FQV U = l THEN GOT ELSE INCST END/ 

COMMENT REAL IF ; 

u«ariET;R!=R-EVAL; 

IF R GTR AND U,[2!l]=l THEN GO TO GOT eLSf 
IF R LSS ANO U.ClMlsl THFN GT TO GOT ELSE 
IF R = Ar-n H.[0!l] = 1. THEV GO 10 GOTj'iO TG INCST; 

« GOTO STATEMENT 
GOTJ !.I: = GET;u;=64xi,i + GET; IF UcO THEN ERR0R(6); 

G0X5 ngdt?=ngot+i;tR2(u3; 

COMMENT MONITOR FOR EXCESS LOOPING; 

IF NG0T=10C AMn lu NET 2 T'^EM fU:GIl^o ^MR I TE ( TT Y* WRN ) I RE AQf TTY <► REP ^ W ) ; 

IF w NE'J "VnS" Thfm GH to STOP i-INO; 

CS:=ii;G0 Fxs; 

« G0SU8 STATEMENT 
G0S5 SLVE: = SLVE + 1 J IF SLVE GTR 10 THEN ERRORCU); 
SVE[SLVE]:=CS;gO GOT! 

% RETURN STATEMENT 

ret; if slvf-o the^' ERRORcr); 

CSjaSVFi:SLVE3;SLVFJ = SLVE-'lJG0 JO INCST; 

% FOR STATEMENT 

Foxj forc!=gft;r!=eval; 

COMMENT FQRX CONTROL INFO IS STORED AS FOLLOWS? 
,1 2 . .3 4 
ADOR STEP FINAL FORLINr 
;__:.__^ .: A FOR LQOP I3_ EXECUTED ZERO TIMES; IN THE RIGHT CIRCUMSTANCES; 

vssFORxCFORc^n j=addr; s ! 'FORxcforcj^ 33 s =eval; 

TJsFORXtFORC^23 5=IF MORE THEN EVAL ELSE i; 

wssroRxCFnFCf a3!=cs; IF t = o thfn rRt^npcg); 

IF TxR LEQ Tx«; THFN GT INCST; % ELSE SKIP LOOP 

us=gft;u; =GFr;cS:=64xu+GET;Gn to i-^jCst; 

* NEXT statement 



00136200 
00136300 
00136400 
00136300 
00136600 
00136700 
00136800 
00136900 
00137000 
00137100 
00137200 
00137300 
00137400 
00137500 
00137600 
00137700 
00137800 
00137900 
00138000 
00138100 
00138200 
00138300 
00138400 
00138500 
00138600 

00138700 
00138800 
00138900 
00139000 
00139100 
00139200 
00139300 
00139400 
00139500 
00139600 
00139700 
00139800 
00139900 
00140000 
00140100 
00140200 
00140300 
00140400 
00140500 

00140600 
00140700 

00140800 
0014 0900 
00141000 
00141100 
00141200 
00141300 
00141400 
00141500 
00141600 
00141700 
00141800 



i 

i 

i 






^ SPOB STOHES CNEXTS LEVEL IN F0RX)-H6XF0RLINE 00141900 

^! NEXJ U?=SPOBCCS3,t354i;v:=SPn8CCSl.r4lJ3e3; 00142000 

•' ^ Jf V NEQ FDRX[U*«] THEN f:RRf5R( 1 ) 5 L J =FURX C U, H ^ 00142100 

T!=fgrxCij,?i;!^i=storfcu3+t; 00142200 

IF TxR LFO TxroPX[L.,33 THEN GEGIN 3 TORE [ 1 3 ? =R>' TR 1 C R ) ; T : "FDRX [U» 4 3 ; 00142300 

• „ TR2(T+1);CS!=T END ELSE F0RX[U,4]!=0; 00142400 
r,0 TO iNCSr: - 00142500 

•^ DEFINE STATEMENT 00142600 

DEFf U!s:GETJFUNCrU]!=CSJGa TO INCST; 00142700 

^^. ^,_^, ^ READ STATEMENT 00142800 

• COMMENT THIS SrrJlQ^, IS COMPLICATED BECAUSE OF SWITCHING 00143000 m 
OF ATTENTION FROM REAH STATEMENT TJ D'^TA STATEMENT ANH BACK ETC; 00143100 ' 

RRFA: R:=EVAL;L!=AnDR;iJ:=CSJv;=CGJ 00143200 

V IF RnTP=0 THEN GO TO QQAT; CO : =RDTPi C S : =RDAT; 00143300 m 

XR.EA: if STRIN THEW REGIN H:=EVAL»CS:=UMF not STRIN then 00143400 ' 

E:RRnRC20);^^rPLACE PQTNTER(STRGSrL.*nRY POINTERCST-^GSUDDR,*]) 00143500 

c?L^.ri^^?in'^^h^ ^'^'"^ -"--^^ '^^^'^'^' ^'=E^VAl;IF STr^IN then ERR0HC20); 00143600 m 

sToc?f:rL:!!=^^;cs:=u;TRHR) E^'n;p^TPJ = IF ^o^e then co elsf o;cO!=v; 00143700 • 

IF MORE THEN GO TO RREA ELSE GO TO InCST; 00143800 

•' COMMENT FIND ANOTHER DATA STATEMENT; 00143900 m 

«0AT!. for CS!=R0aT+1 step 1 UNTIL MS 00 BEGIN 00144000 ' 

IF STyP[C53 = t2 THEN GO TO FREA t'^O; 00144100 

W CS! = u.ERRn,.C2n. 00144200 m 

FRFA: finAT:=cS;CO:=SPn^[C:i];GU TO XREA; 00144300 * 

A '^ INPUT STATEMENT 00144400 

• % "STOP" AT START OF INPUT STREAM STOPS A RUN 00144500 

,INP5 . REGIN LAREL R INP» E V I NP * RP T^ EXPOn* COnE . F I NPJ 00144600 

MFj=GfT;lF MF=0 THEN PeGIN IF IU=2 THEN ERR0RC5); 00144700 

• IF nELTACPOUB^PlGR) GTr q THEn REGIN 00144800 
REPLACE POINTFRCIOHEC*:) ^?Y POljB FQR 72 ^ WR ITE (TT Y C STQP ] , 9, I08E [ * 3 ) ; 00144900 
REPLACE PIC3:=POU8!=P0iNTER(IOB[*3) BY " " FOR 112;IF 0U=1 THEN 00145000 

• PI0BS=P0UB:=PT0B+2C ENo;REA@CTTY,9.I08EC*3); 00145100 A 
READCIC8E[*],RpP,v);iF V = "STO" THEf^ GO TO STOP END 00145200 • 
ELSE BEGIN' 7!=nET;z:=^/4xZ + GET;REAO(FlLl/lO,l08EC*3)tOUD3; 00145300 

• READ(iOPEr*],SNUM,IR) ENO; 00145350 m 
REPLACE POIMTFRCPROGro,23) OY PO I NTER ( lOBE C 1 3 ) FOR 72;x5'=0; 00145400 # 

RiNPt RJ='EvAL;L! = ADOR;ul=C3;cS! = o;CPJaX;CHA:=0; 00145500 

• If" NCH = "%" THEN BEGIN IF MF = THEN BEGIN S^RI TE C TT Y, MNP C I F X = THEN 1 00145600 a 
ELSF 03/PR0G!:u*n);CS!=U;GO to EXS end else RFGiN ~ 00145700 " 

R£An(FlLi,o,inRE[*3)couD]; ooi45floo 

• REPLACE PDlNTERrPROGCn, 2]) BY PniNrERCl08EC*3) FOR 72;CP!:=1 END end; 00145900 ^ 
CO^^'^FNT INPUT STRING MAY OR MAY NOT HAVE "" ; 00146000 • 

EVINP! CP:sCP-1;CHAS=NCH;IF StRIN THEN BEGIN 00146100 ^^ ' ^ — 

0NC63) SCAN APR J APR : =CPR : sPOlNTERCPROG C 0, 2 3 ) +CP FOR 15 WHILE NEQ 63 00146200 m 

. ELSE BEGIN, CP:=CP-2;SCAN APR : APR : =CPR : =P0 I nTER C PROGC 0, 2 3 ) + CP + l FOR 15 00146300 * 

WHIIF IN ALPHA ENH; 00146400 

V<=OFLTA(CPRMPR);iF V>14 THEM REGIN C3 : sU; ERROR C 20 ) FND; 00146500 m 

STRGSCL'O] !=v;rEPLACE POIMTERCSTRGSCL*n) 3Y CPR FUR V; 00146600 

cP:=cP+y+i;cHA:=NCH;cs:=u;TR4(L);Gn finp end; ooi467oo 

-- COMMENT*" ' JNPUT_NUMBER ; §Slt69SS • 

0N(44) HEGIN T:::1;cHAS=NCH END; 00147000 

RPT: 0N(26) BEGIN Y I s i; CHA : =NCH END; 00147100 a 

IF CHA GFQ 10 THEN GO TO EyP0N;TF Y GTR THEN 00147200 ^ 

BEGIN Ri=P+CHAxlO*f-Y); 00147300 

Y«=Y+1 END ELSE RJ=Rxto +CHA; CHA ; =nCh J GO TO RPT; 00147400 m 
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^'^J}"^' '^^ C*-''^ ^iE'' ^^ ThFN GO TO DONE; Y :^ 1 ; CHA J«NCH; Z JsQj 

IF CHA RE;q 10 THEN BEGIN CS : su; ERRQRc la ) END; Z ! =:Cri a; CH A ! «NCH; 
IF cHa LSS 1,0 THEM REfllN Z 5 =2xlO + CHA j CHA ! =nCH END; 
RS=RxlO*(YxZ); 

done: if T=s,1 then RJ=-R;Dtl.lM:s72;STORE[L3:=R;CSJ*U;TRlCR); 
FINP: XtsCPJlF CHA NEQ 58 AND CHA NEQ ••%" THEN ER«0R(19)? 

if more then go to rinp else go to incst end? 

* Randomise statement 

RAN! XRNr); = c?xTIME(l) + n.C23?23j;GG TO INCSTj 

■« .RESTORE STATEMENT 
RES: mE!=GET;iF MF = THEN f^QTP : :=RD A T J = ELSE REWINDCFILnj 
GO INCST; 

% PRINT STATEMENT 

EPRls MF:=GET;IF MF>0 THEN BEGIN PBRJ=PI0B; 
TRjfZ ! =GET; 2 ! =64xZ+GET; 
POUB:=POlNTERClOFr*l ); REPLACE PI OB : ==P01NTER ( lOF C * 3 ) BY " " FOR 72 ENO^ 

PRIS CHAj=6ETnF wF>0 AND Cha = 5 THEN eRR0RC26); 
GO TO TYP[CHA+l]; 
Z«sGET;Z!=6avZ+GET; 
COMMENT ,♦ IN PRINT MOVES TO NEXT 14-SPACE COLUMN, 

CSFMIcnLON IN Mli^nLC OF PRINT IS JUST DELIMITER); 
COM: IF MF>C THEN REPLACE PIOSJPIOB RY '% " ELSE BEGIN 
V5=nFLTA(P0UBi-PlO9);TF V GTR 56 THEM BEGIN 
OUTP;VJ-0 END ELSE v: = H-(v MOD 14)! 

FOR u:sl STEP 1 UNTIL V DO REPLACE PIOBSPIOR 8Y " " ENQ; 
GO TO PR I J 

COMMENT PLACE STRING I .M P SEUDU-8UFFEK J 

STR! CP!=GET; 

cpr:=pointer(progi:cs,?.i )+c°; 

v5=72-deltacp0u8»pigb);w:=get| 

if w gtr v then begin replace pi08:pi08 by cprscpr for v; 

outpjw!=w-v end; 

QUOlREPLAfrpioBrPlOB BY CPRSCPR. FOR w;QUO; 

GO TO PRi; 



comment 



TAB OVERWRITES ON TELETYPE AND LiNE-PRlNTER 
BUT REPLACES ON VIDEO UNIT, ; 



tar: tf MF>0 THEN ERROR C ^''S ) * (J : =EV AL" 1 ; U ' =U MOD 7?.} 
IF lU + ntJ NEQ THEN «EGIN TR 3 ; WR I F E C^'L t Olj ] [ NO 3 » ^^» I OB C * J ) / 
REPLACE PntJR RY " " FOR 72 ENO; P 1 0-J : cPOUB + u; GO TO PRi; 

STRv: R!=EVAl;QUO;RE»LACE PIOBsPIOB BY PQINTERCSTRGSCADDRM]) 
FOR STRriSCA00R,03;«un;G0 TO PRI' 

NMs outnum(EVal»o);gd to PRI; 

XPRI: IF MF>G then begin REPLACE PIOB BY "*"; 
NR:=NR+iO;REPLACE PO iNTERf I'lF [ 10 J ) BY HH FOR B DIGITS; 

WRlTE(FIL2*tO*lOFr*l)rnUF3;PinQ:=PBR;POU8;=POINTERCIOB(:*3)+20xOU END 
ELSE nUTP;GO TO INCST; 

5fe PAGE STATEMENT 
PAGs,. IF 0U=:1 THEN..s^iMTE(LlNCPAGE3);G0 TD INCST; 

% MAT STATEMENT 

X MAT i=REAn^ <;^=PRrNT^ 3=w,n'ap^ 4=scalar multiple 

...MAT! REGIN INTEGER E^F,G;LABEL «D A T » ERE A, XRE A, RRE A ; 
L! = GET;IE L = 1. THEN BEGIN E ! =CS; L : = GET; U : =GET J V ! =GET; 
FOR WJsO STEP 1. UNTIL U"! DO FOR Xt-0 STEP 1 UNTIL V"l 00 BEGIN 



00147500 

00147600 

00147700 

00147800 

00147900 

00148000 

00148100 

00148200 

00148300 

00148400 

00148500 

00148600 

00148700 

00148800 

00148900 

00149000 

00149100 

00149200 

00149300 

00149400 

00149500 

00149600 

0014970G 

00149800 

00149900 

00150000 

00150100 

00150200 

00150300 

00150400 

00150500 

00150600 

00150700 

00150800 

00150900 

00151000 

00151100 

00151200 

00151300 

00151400 

00151500 

00151600 

00151700 

00151800 

00151900 
00152000 
0015210O 
00152200 
00152300 
00152400 
00152500 
00152600 
00152700 
00152800 
00152900 
00153000 
00153100 
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If ..RDT-P=.0 

RDTP:=IF 

_, , QDAT 

sl2 THFN 

FRtA 

RREA 

IF L«H TH 

IF DELTAC 

BEGIN FOR 

WXARRtLj-a 
END JQUTP 
IF 1=3 FH 

l8sget;R5 

If ARRCL* 
FOR U!=0 
DO STOREC 
GO TO INC 

ENXS 
LOCKfFTU 

OUO: 

nuF! 

TMTVR 
OZER! 
STOP 
COt^MEMT 



THEN G 
a: S 

MORE TH 
J FO 
GO in F 
! RD 

} _ EN 

EN REGl 
POUBfPl 

=:gf:t;vj 

x; = o s 

T+X]^E) 

end; GO 

EN MA TO 

= f:val)W 

n NEQ 

STFP 1 
AftR[L,0 
ST ENO^ 

TR3 

)/LnrKC 

IF 7 = 

IF- 7 = 

t r R R R 

F 9 F? n p ( 

i WR 



o.,Ta^SDAT;cn!=RDTP>C5;=RnAr; 

TnRECARR[L^OJ+WXARH[L^2J+X3 !=evAL^ 

EN CO ELSE '>^Q0 TO RREA; 

R CS;=rDAT + 1 step ,1 UNTIL MS 00 BEGIN IF STYPCGSl 

RFA END/CSs=E;ERR0R(21); 

AT!=csjCo;!=5Po8cr.s};GD TO. xrea; 
D.;cs^=E^GO to incst end; 

N 

OR) GTR THEN OUTP; 

=.GET;E:=GET;G? = 14-Ex7;F0R W!=0 step 1 UNTIL U-1 00 

TEP 1 UNTIL V-1 DO BEGIN OUTNUMC STOREC aRRC L* 01 + 

SPIOBJsPOUR + GxCCnELTA.CPOUB^PIOB)-!) DIV G +1) 

TO INCST end; 

PJ 

s=get; 

ARRCW^l] OR ARRCL^^I NEQ ARRCW*23 THEN ERR0R(23); 
UNTIL ARREL:' 1.1-1 00 FOR VlsQ STEP 1 UNTIL ARHCL^Sl-l 
HUxAPRCL»2l+V]S=R>^ST0RECARRCW,O]+uxARRCL#2]+V]J 



% STOP OR END STATEMENT 
HF DELTA(P0Ue#Pi:0B)>0 THEN OUTP/ 

fil?)sgo Tn stop; 
THFK FRR0R(2i )J;tr2(z);cs!=z;go exs; 

THEN LRR0RC;^6);tR2CZ);CS:=ZJG0 EXSi 

n, ?);TNinEXR: FRpiiRcn); 
14);expvr: error n6) end; 

ITE(TTY*STP^"RUN ");g0 TO SOURCEIN; 



FINSH! 



PROGRAM WRITTEN BY MALCOLM CROWE 

LANGUAGE DETAILS DECIDED BY TAN MILLER AND JOHN FURLONG 

MATRIX INVERSION CORRECTED &Y ARTHUR MACDIVITT i 

END. 



00153200 
00153300 
00153400 

00153500 
00153600 
00153700 
00153800 
00153900 
00154000 
00154100 
00154200 
00154300 
00154400 
001.54500 
00154600 
00154700 
00154800 
00154900 
00155000 
00155100 
00155200 
00155300 
00155400 
00155500 
00155600 
00155700 
00155800 
00155900 
00156000 
00156100 
00156200 
00156300 
00156400 
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